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
Please enter comments
Please enter your name.
Please enter the correct email address.
You must agree before submitting.

Answers & Comments


Copyright © 2024 SCHOLAR.TIPS - All rights reserved.