Var a, b, c: integer;
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.
Сделать эту программу так, чтобы был только цикл while
Var a, b, c: integer;
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.
Сделать эту программу так, чтобы был только цикл while
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.
Сделать эту программу так, чтобы был только цикл while
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
var c: integer;
begin
c:=10;
while c<=10000000 do
begin
var a:=c;
var b:=0;
var temp:=a;
while temp>0 do
begin
b:=b*10+temp mod 10;
temp:=temp div 10;
end;
if trunc(c*1.2) = b then writeln(c);
c:=c+1;
end;
end.