Ответы на вопрос:
Var a,c,k: real; begin write('a = '); readln(a); write('c = '); readln(c); k: =0; while a< =c do begin a: =a*1.25; k: =k+1; end; writeln('k = ',k) end.
Популярно: Информатика
-
Lena105612.02.2020 05:15
-
valentinasopina20.01.2021 10:59
-
SashkaFlavki30.06.2021 07:09
-
Yuntsev23.02.2021 20:30
-
LeBleque31.03.2020 17:38
-
SHEVTSOVA118330.07.2022 21:54
-
Girl1girl09.08.2020 23:24
-
andreygaevskiy15.11.2022 12:11
-
SofiaQueen19.10.2022 09:17
-
Ardak12331.10.2021 23:50