Вывести на экран двузначные числа кратные 11 и вычислить их произведения
Вывести на экран двузначные числа кратные 11 и вычислить их произведения
Гость
Ответ(ы) на вопрос:
Гость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.
ГостьУ меня получилось вот что. Я вывел произведения ПОПАРНО, одновременно организовал вывод на дисплей в 5 столбиков (а при работе WriteLn результаты не помещаются в одном окошке.
Не нашли ответ?
Похожие вопросы