Ответы на вопрос:
var bakteria, min: integer;
begin
bakteria := 1;
min := 1;
while bakteria < 100 do
begin
bakteria := bakteria + 3;
min := min + 1
end;
writeln(min)
end.
Объяснение:
Популярно: Информатика
-
kjhf123455432115.09.2021 11:27
-
mishac147020.03.2022 07:57
-
romafomin15рома03.11.2021 18:30
-
Агааемгов28.12.2022 13:56
-
Anny210728.04.2020 19:16
-
яАРтеМоНкА07.01.2023 23:33
-
maks197rus16.09.2022 23:08
-
egor2003151007.02.2023 05:07
-
SmertKiller02.04.2021 03:04
-
Sashas1606.03.2022 14:30