Без труда не вытащишь рыбку из труда
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
Http://txt.org/<span>ftp.net
</span>Ответ: Г В Ж Е Д Б А
Var
x: real;
begin
readln(x);
write('y = ');
if (x < -7) then write(7)
else if (x < 0) then write(-x)
else if (x <= 5) then writeln(x)
else write(5);
<span>end.</span>