Вывести на экран все двузначные числа кратные 13}
{и все двузначные сумма цифар которых равна произведению}
program u5;
var i,a,b: integer;
begin
writeln('двузначные кратные 13: ');
for i: =10 to 99 do if i mod 13=0 then write(i,'');
writeln;

writeln('двухначные числа сумма которых равна произведению: ');
for i: =10 to 99 do
begin
a: =i mod 10; b: =i div 10;
if a+b=a*b then write(i,'');
end; writeln
end.

hhgfg    2   25.11.2019 10:06    10