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

Question

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

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

Comments

извините, меня...но вы бы не могли помочь с этой задачей?: Найти все произведения двух значных чисел оканчивающихся только на 1

---

var i:integer; p:real;
begin
p:=1;
for i:=10 to 99 do
if i mod 10 =1 then p:=p*i;
writeln('p=',p);
end.

---

разве это не та же самая программа?