❗ СОСТАВИТЬ ПРОГРАММУ В РaskalABC(for var)Ежедневно каждый болеющий гриппом человек может заразить 3 окружающих. Выведите на экран максимальное количество заболевших в течение 5 дней. Результат работы программы может выглядеть как : в 1 день количество заболевших составляет 1 чел.
в 2 день количество заболевших составляет 4 чел.
в 3 день количество заболевших составляет 16 чел.
...
begin
for var n: Integer := 1 to 5 do
writeln('в ', n, ' день количество заболевших составляет ', power(4,n-1), ' чел.')
end.
Посчитал тут на 15 дней:
в 1 день количество заболевших составляет 1 чел.
в 2 день количество заболевших составляет 4 чел.
в 3 день количество заболевших составляет 16 чел.
в 4 день количество заболевших составляет 64 чел.
в 5 день количество заболевших составляет 256 чел.
в 6 день количество заболевших составляет 1024 чел.
в 7 день количество заболевших составляет 4096 чел.
в 8 день количество заболевших составляет 16384 чел.
в 9 день количество заболевших составляет 65536 чел.
в 10 день количество заболевших составляет 262144 чел.
в 11 день количество заболевших составляет 1048576 чел.
в 12 день количество заболевших составляет 4194304 чел.
в 13 день количество заболевших составляет 16777216 чел.
в 14 день количество заболевших составляет 67108864 чел.
в 15 день количество заболевших составляет 268435456 чел.
Так что, на 15-ый день грипповать будет уже больше, чем у нас в стране населения. Как говорится, думайте сами, решайте сами...