Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Вывести на экран двузначные числа кратные 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.