Ответы на вопрос:
Нет компилятора чтобы проверить на ошибки, поэтому перепроверь сам на компьютере. думаю, пойдёт так: program plov ; var day : integer ; var km , sum : real ; begin day : = 1 ; km : = 3 ; sum : = km ; while ( sum < = 30 ) do begin day : = day + 1 ; km : = km * 1.1 ; sum : = sum + km ; end ; writeln ( 'day=' , day ) ; end. должно, как я думаю, получиться в ответе 8-й день. отпиши что получится, ладно? мне самому интересно.
Популярно: Информатика
-
О12728.12.2021 21:26
-
fedyuningleb2029.05.2023 04:58
-
1123454321макс19.01.2022 00:09
-
nadgvcdg04.01.2020 22:52
-
ЯнаШемен24.09.2021 23:34
-
egor53531.05.2020 16:31
-
Glek1117.06.2020 08:58
-
KVERCXI06.07.2021 03:11
-
АнисаСакинаМедина05.01.2020 21:58
-
dzhmulin20.09.2020 23:30