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

Question

Информатика

Ианикит

29 июля, 12:13

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

+3

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