Решите Пожалуйста!!! Желательно на языке ПАСКАЛЬ!!
Решите Пожалуйста!!! Желательно на языке ПАСКАЛЬ!!
Гость
Ответ(ы) на вопрос:
Гостьvar
n,x,k: integer;
d: real;
begin
read(n, x);
k := 1;
d := n;
while d < x do
begin
k := k + 1;
d := d * 1.1
end;
write(k)
end.
Не нашли ответ?
Похожие вопросы