• Найдите ошибку пожалуйста:
    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.

Ответы 0

  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years