Найдите ошибку пожалуйста: program variant30 var n: integer; begin write('Введите n...

0 голосов
40 просмотров

Найдите ошибку пожалуйста:
program variant30
var n: integer;
begin
write('Введите n (n<=13): '); <br> readln(n);
var fact := 1;
for var i := 2 to n do
fact *= i;
writeln(n,'! = ',fact);
end.


Информатика (17 баллов) | 40 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

Program variant30;
var n: integer; 
begin 
write('Введите n (n<=13): '); <br>readln(n); 
var fact := 1; 
for var i := 2 to n do 
fact *= i; 
writeln(n,'! = ',fact); 
end.

(194k баллов)