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

Question

Информатика

Семен

2 ноября, 11:52

Знаю примерно как решать, но не выводится на программе Паскаль (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.