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

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;
    if trunc(c*1.2)=b then writeln(c);
    c:=c+1
  until c>10000000
end.

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.

Answer 3

Конечно! Вот программа, эквивалентная исходному коду, но с использованием цикла repeat:

pascalCopy code
uses crt;

var
  a, b, c: longint;

begin
  c := 10;
  repeat
    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);

    Inc(c);
  until c > 10000000;

  readln;
end.

Эта программа будет выполнять то же самое, что и исходный код, но с использованием цикла repeat, вместо for. Она будет перебирать значения c от 10 до 10000000 и проверять условие trunc(c * 1.2) = b, где b - число c в обратном порядке. Если условие выполняется, программа выводит значение c.