Ответы
Ответ дал:
0
var i,m,n:longint;
begin
readln(n);
for i:=1 to n do
m:=m*i;
writeln(m);
end.
begin
readln(n);
for i:=1 to n do
m:=m*i;
writeln(m);
end.
Ответ дал:
0
var i,m,n:longint;-айнымалылар
begin-начало программы
readln(n);-функция читает н айнымалы
for i:=1 to n do эта команда подберает от 1 до н
m:=m*i;
writeln(m); вывести факториал
end.
begin-начало программы
readln(n);-функция читает н айнымалы
for i:=1 to n do эта команда подберает от 1 до н
m:=m*i;
writeln(m); вывести факториал
end.
Вас заинтересует
2 года назад
2 года назад
8 лет назад
8 лет назад
10 лет назад
10 лет назад
11 лет назад