begin readln(n); nf := 1; for i := 1 to n do nf := nf * i; writeln(nf); end.
0 votes Thanks 0
irinavias
немного не так. не использую var , nf:longin; writeln(nf).я так поняла что здесь надо использовать setlocale iostream match, но как это все связать не знаю.
Aillianna
вам какой язык вообще нужен? Это паскаль
Aillianna
если язык в задании не указан то можно делать на любом и будет правильно. Это тут такое не гласное правило
irinavias
мне нужен с++. извините что не указала . можете на этот переделать?
Aillianna
нет, я плюсов не знаю. да и в любом случае время исправление (2 часа с ответа) уже прошло
Answers & Comments
Verified answer
Vari, n: integer;
nf: longint;
begin
readln(n);
nf := 1;
for i := 1 to n do
nf := nf * i;
writeln(nf);
end.