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

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.

Comments

Nikolac спасибо,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.

---

Почему f*29? Написано увеличить на 29

---

f*6, f+29

---

тогда :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.

---

тогда: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.ПРАВИЛЬНО?

---

Да