Def.doc
1e.dat
defgh.ddd
ae123.def
Var M, N, sumN: integer;
begin
readln(N);
M := N;
sumN := 0;
while (M > 0) do
begin
inc(sumN, M mod 10);
M := M div 10;
end;
M := (N div sumN + 1) * sumN;
if (M < 2*N) then
writeln(M)
else
writeln('нет')
end.
Var s:real; k:integer;
begin
s:=50;
k:=0;
while s<2000 do
begin
k:=k+1;
s:=s+0.1*s;
end;
writeln(k);
end.
Результат:
39