Var
i:integer;
x:real;
begin
x:=10000;
while x<20000 do
begin
x:=x*1.05;
i:=i+1;
end;
writeln('Ответ: ',i);
end.
Диаметр= радиус*2 т.к. радиус-это половина диаметра
Var
n, m: longint;
begin
m:=0;
readln(n);
while n > 0 do
begin
m := m*10 + n mod 10;
n := n div 10;
end;
writeln(m);
end.
Пример:
13804
<span>40831</span>