Знаю примерно как решать, но не выводится на программе Паскаль (1. Увеличить переменную f 6 раз, если f нечётное число, иначе увеличить на 29.2. Факториал числа

Question

Информатика

Абакум

7 марта, 12:57

Знаю примерно как решать, но не выводится на программе Паскаль (1. Увеличить переменную f 6 раз, если f нечётное число, иначе увеличить на 29.2. Факториал числа

+4

Ответы (1)

Знаешь ответ?

Пахомий · Answer 1

1.

var f:integer;

begin

read (f);

if f mod 20 then

f:=6*f

else

f:=f+29;

writeln (f);

end.

2.

var i, n, k:integer;

begin

read (n);

k:=1;

for i:=2 to n do

k:=k*i;

writeln (k);

end.