Найти произведение всех натуральных чисел от 1 до 100 на языке pascal

Question

Информатика

Федуля

27 февраля, 12:41

Найти произведение всех натуральных чисел от 1 до 100 на языке pascal

+4

Ответы (1)

Знаете ответ на вопрос?

Настена · Answer 1

На турбо паскале невозможно сделать этого, т. к. идет переполнение возможного лимита данных (real, longint). В идеале это должно выглядеть так:

var

a:real;

i:byte;

begin

a:=1;

for i:=1 to 100 do begin

a:=a*i;

end;

writeln (a) ;

end.