Предмет: Информатика,
автор: 1612001
срочно составьте программу на паскале
1. увеличьте число х на 1 , если оно положительное
2. составьте программу F=1·2·3...n
Ответы
Автор ответа:
0
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.
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.
Автор ответа:
0
очень выручили
Похожие вопросы
Предмет: Математика,
автор: EfimovASonYa
Предмет: Физика,
автор: sergey007600
Предмет: Алгебра,
автор: kseniatorlopova
Предмет: Математика,
автор: UMNITSA1234567890
Предмет: Алгебра,
автор: КРЕЙЗИГЁРЛ