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

Question

Информатика

Ианикит

28 августа, 22:50

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

+2

Ответы (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.