требовалось написать программу вычисления факториала числа n. Программист торопился и написал программу неправильно. 5ош

Question

ЭТО ЗАДАЧА!! ! 
Ниже приведёны фрагменты ег7о программы, в которой 5 ошибок! Найдите их и напишите правильный вариант.. . 
k:=1; 
f:=0; 
while k

k:=1; 
f:=0; 
while k

продолжение 
k

продолжение 
k (меньше) n do 
f:=f*k; 
k:=k+1

Анна Кузнецова · Accepted Answer

program fak; 
var i:integer; 
var f:integer; 
var n:integer; 
begin 
 i:=1; 
 f:=1; 
 write('Введите число '); 
 readln(n); 
 while(i<=n) do 
 begin 
 f:=f*i; 
 i:=i+1; 
 end; 
 writeln('Результат: ',f); 
end.

Екатерина · Answer

опиши переменную как longint а то оно слишком велико для n=10