Вывести ** экран двузначные числа кратные 11 и вычислить их произведения

Question

Вывести на экран двузначные числа кратные 11 и вычислить их произведения

Comments

Какие произведения?  11*11?   11*22?   77*33?  или 11*22*33*44 и т.д??

Answer 1

У меня получилось вот что. Я вывел произведения ПОПАРНО, одновременно организовал вывод на дисплей в 5 столбиков (а при работе WriteLn результаты не помещаются в одном окошке.

Answer 2

Var i:integer;   p:real;
begin
writeln('числа кратные 11: ');
p:=1;
for i:=10 to 99 do
if i mod 11=0 then begin p:=p*i; write(i:3);  end;
writeln;
writeln('произведение= ',p);
end.

Comments

А произведение получается очень большим (в целых его вывести невозможно), значит все же ПРИБЛИЖЕННО считать (в real)& 

---

а я и так считал произведение через real

---

Спасибо за старание но , надо было через CLS это сделать