Найти произведение всех двух значных чисел

Question

Информатика

Ион

5 декабря, 04:18

Найти произведение всех двух значных чисел

+1

Ответы (1)

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

Витюха · Answer 1

Вот программа:

var i:integer; p:real;

begin

p:=1;

for i:=10 to 99 do p:=p*i;

writeln ('p=', p) ;

end.

Произведение будет очень-очень большое:

p=2.57182031095525E+150