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 c:=10; while c<=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); c:=c+1 end; end.
Слово «мама» — особое слово, оно рождается вместе с нами.в языке любого народа есть это слово.место матери в нашей жизни особое.материнская любовь окрыляет, придает силы, вдохновляет на подвиг.слово «мама» становится равнозначным слову «жизнь». сколько художников, композиторов, поэтов создали замечательные произведения о маме! к сожалению, мы слишком поздно понимаем, что забыли сказать много хороших и добрых слов своей маме. чтобы этого не произошло, нужно дарить им радость каждый день и час. ведь дети – лучший подарок для них.
Слово «мама» — особое слово, оно рождается вместе с нами.в языке любого народа есть это слово.место матери в нашей жизни особое.материнская любовь окрыляет, придает силы, вдохновляет на подвиг.слово «мама» становится равнозначным слову «жизнь». сколько художников, композиторов, поэтов создали замечательные произведения о маме! к сожалению, мы слишком поздно понимаем, что забыли сказать много хороших и добрых слов своей маме. чтобы этого не произошло, нужно дарить им радость каждый день и час. ведь дети – лучший подарок для них.
begin
c:=10;
while c<=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);
c:=c+1
end;
end.