Question

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

Answer 1

1.
var f:integer;
begin
read(f);
if f mod 2<>0 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.

Answer 2

тогда:program ec2;
var f,x:integer;
begin
readln(f);
if f mod 2=1 then x:=f+6
else x:=f+29;
writeln(x);
end.

Answer 3

f*6, f+29

Answer 4

тогда :program ec2;
var f,x:integer;
begin
readln(f);
if f mod 2=1 then x:=f+6
else x:=f+29;
writeln(x);
end.

Answer 5

тогда:program ec2;
var f,x:integer;
begin
readln(f);
if f mod 2=1 then x:=f*6
else x:=f+29;
writeln(x);
end.ПРАВИЛЬНО?

Answer 6

Да