Задание 6 очень срочно пожалуйста , чтобы на паскале АBC пошла
Если считать, что больные продолжают ходить в школу, заражая каждый день людей, и при этом они не выздоравливают через 7 дней, то так:
var vsego, boleet,den:integer;
begin
writeln(Сколько всего человек: );
Readln(vsego);
boleet:=1;
while boleet
den:=den+1;
boleet:=boleet*4+boleet;
writeln(День ,den, - заразились и болеют уже , boleet, человек);
end;
writeln(Всего учеников: , vsego, , Через ,den, дней заболеют , boleet, учеников (если бы их было столько), но т.к. их столько нет, да и школу бы всё равно на карантин закрыли, то будем считать, что заболеют все , vsego);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
