Задать вопрос
18 ноября, 10:22

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

+4
Ответы (1)
  1. 18 ноября, 10:28
    0
    программа не будет давать верный ответ при n>20 т. к. нет такого целочисленного типа переменных. uint64-самый большой из всех

    var

    i, n, p: uint64;

    a: array [1 ... 10000] of integer;

    begin

    read (n) ;

    p:=1;

    for i:=1 to n do

    begin

    a[i]:=i;

    p:=p*a[i];

    end;

    if n>33 then

    writeln ('eror')

    else

    if n=0 then

    writeln ('p=1')

    else

    writeln ('p=', p) ;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Паскаль. Написать программу вычисления произведения n чисел то есть 1*2*3 * ... * n, причем, если n=0, то произведение равно 1. Число ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы