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-ый день грипповать будет уже больше, чем у нас в стране населения. Как говорится, думайте сами, решайте сами...
uses GraphABC;
begin
SetWindowWidth(800); //ширина окна программы
SetWindowHeight(600); //высота окна программы
SetPenWidth(5); //толщина пера
setpencolor(clblue);
Rectangle(1, 600, 200,450);
Rectangle(150, 300, 200,450);
Line(1, 450, 150,450);
Line(150,450, 75,150);
Line(75,150, 1, 450 );
Line(200, 197, 400,197);
Line(400, 197, 300,107);
Line(300, 107, 200,197);
Rectangle(200, 600, 400,200); //дом
Rectangle(400, 600, 600,450); //дом
Rectangle(450, 300, 400,450); //дом
Line(447, 447, 600,447);
Line(600,447, 520,150);
Line(520,150, 447, 447);
Circle(300,300,50);
Circle(520,130,25);
Circle(75,130,25);
end.
2 аумактык база
3 термондык база
4 орынбасу базасы
4база бар
245 245=245986 аапряппр ер