Помогите пожалуйста...
Приложения:
Ответы на вопрос
Ответил 140201
0
Есть три явные ошибки: 1) начальное f:=0, а должно быть f:=1, иначе при умножении на ноль всегда будет ноль. 2) в условии цикла k
Ответил 140201
0
5) нет описания переменных, нет ввода n, нет вывода f
Ответил 140201
0
И еще.... я бы вместо цикла while использовала цикл for, но это не обязательно
Ответил 140201
0
Ниже правильный текст программы:
Ответил 140201
0
program faktorial;
var n,k: integer; f: int64;
begin
readln (n);
k:=1;
f:=1;
while k<=n do begin
f:=f*k;
k:=k+1
end;
writeln (f)
end.
var n,k: integer; f: int64;
begin
readln (n);
k:=1;
f:=1;
while k<=n do begin
f:=f*k;
k:=k+1
end;
writeln (f)
end.
Ответил Кинера
0
Понятно, спасибо :3
Новые вопросы