Question

Задание 6 очень срочно пожалуйста , чтобы на паскале АBC пошла

Answer 1

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