Uses crt; var a, b, c: longint; begin for c:=10 to 10000000 do begin a:=c; b:=0; while a>0 do begin b:=b*10+a mod 10; a:=a div 10; end; if trunc(c*1.2) = b then writeln (c); end; end. Напишите эту программу только с циклом repeat
var a, b, c: longint; begin c:=10; repeat begin a:=c; b:=0; while a>0 do begin b:=b10+a mod 10; a:=a div 10; end; if trunc(c1.2) = b then writeln (c); end; c:=c+1; until c>10000000; end.
var a, b, c: longint;
begin
c:=10;
repeat
begin
a:=c;
b:=0;
while a>0 do
begin
b:=b10+a mod 10;
a:=a div 10;
end;
if trunc(c1.2) = b then writeln (c);
end;
c:=c+1;
until c>10000000;
end.