Найдите ошибку пожалуйста:
program variant30
var n: integer;
begin
write('Введите n (n<=13): ');
readln(n);
var fact := 1;
for var i := 2 to n do
fact *= i;
writeln(n,'! = ',fact);
end.
Ответа на этот вопрос пока нет. Попробуйте найти его через форму поиска.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад