Uses crt; var a, b, c: longint; begin for c:=10 to 10000000 do begin a:=c; b:=0; ...

Question

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

Comments

while и for, заменить на repeat? :/

---

Да, помоги пожалуйстаааа

Answer 1

Uses crt;

var
  a,b,c:longint;

begin
  c:=10;
  repeat
    a:=c; b:=0;
    repeat
      b:=b*10+a mod 10;
      a:=a div 10;
    until a<=0;<br>    if trunc(c*1.2)=b then writeln(c);
    c:=c+1
  until c>10000000
end.

Comments

спасибо большое

Answer 2

Uses crt;
var a, b, c: longint;
begin
c:=10;
repeat
a:=c;
b:=0;
repeat
b:=b*10+a mod 10;
a:=a div 10;
until a=0;
if trunc(c*1.2) = b then writeln (c);
c:=c+1;
until c=10000000
end.

Comments

ну вроде верно, но это не точно C: