Срочно составьте программу ** паскале 1. увеличьте число х ** 1 , если оно положительное...

Question

Срочно составьте программу на паскале
1. увеличьте число х на 1 , если оно положительное
2. составьте программу F=1·2·3...n

Answer 1

1)
var x:integer;
begin
readln(x);
writeln(x+1);
end.
2)
var n,i,f:integer;
begin
readln(n);
f:=1;
for i:=1 to n do
f:=f*i;
writeln(f);
end.

Comments

в 1) перед "writeln(x+1)" надо дописать: "if (x>0) then "

---

спасибо большое Вам!

---

очень выручили