Ответы на вопрос:
var i: integer;
var x: real;
begin
i:=1;
x:=10;
while (x < 25) do
begin
i:=i+1;
x:=x + 0.1 * x;
end;
writeln(i)
end.
Популярно: Информатика
-
kirtema4315.06.2022 11:24
-
sofiyaserysheva30.09.2022 10:52
-
flexter22831.08.2020 22:12
-
роллы604.12.2020 09:40
-
gayratjonxaxa08.01.2020 00:58
-
ATimofeeva16.12.2022 16:25
-
Рената51507.06.2022 18:07
-
Bata200307.06.2022 09:48
-
ПолинаТ101.12.2022 00:31
-
svepielisz17.03.2023 16:04