Pascal понимает десятичную дробь (если это просто значение а не формула) в виде числа после запятой, если же формула, то достаточно написать формулу, например, y:=x/z или же если это значение то y:=3/10
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
Ответ Б
<span>b) Write ('Привет!!!');
</span>