❗ СОСТАВИТЬ ПРОГРАММУ В РaskalABC(for var)Ежедневно каждый болеющий гриппом человек может заразить 3 окружающих. Выведите на экран максимальное количество заболевших в течение 5 дней. Результат работы программы может выглядеть как : в 1 день количество заболевших составляет 1 чел.
в 2 день количество заболевших составляет 4 чел.
в 3 день количество заболевших составляет 16 чел.
...

172

479

Посмотреть ответы 2

Ответы на вопрос:

kuansh4

Информатика

4,4(55 оценок)

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-ый день грипповать будет уже больше, чем у нас в стране населения. Как говорится, думайте сами, решайте сами...

отличница474

Информатика

4,6(28 оценок)

Var a: array [1..10] of byte; i, tmp: byte; begin randomize; for i : = 1 to 10 do a[i] : = random(31)+10; writeln('сгенерированный массив.'); for i : = 1 to 10 do write(a[i],' '); tmp : = a[7]; a[7] : = a[4]; a[4] : = tmp; writeln; writeln('измененный массив.'); for i : = 1 to 10 do write(a[i], ' '); end.