Задать вопрос Регистрация
Помочь другим

  • Паскаль. Написать программу вычисления произведения n чисел то есть 1*2*3*...*n,причем, если n=0, то произведение равно 1.Число множителей не должно превышать 33.При вводе числа более 33, сообщить об ошибке и повторить ввод.

Ответы 1

  • программа не будет давать верный ответ при n>20 т.к. нет такого целочисленного типа переменных. uint64-самый большой из всех

     

    vari, n, p: uint64;a: array [1..10000] of integer;beginread(n);p:=1;for i:=1 to n dobegina[i]:=i;p:=p*a[i];end;if n>33 thenwriteln('eror')elseif n=0 thenwriteln('p=1')elsewriteln('p=',p);end.

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

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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