Var
b,i:integer;
Begin for i:= 13 to 113 do
b:=b+i;
Writeln('Сумма чисел в диапазоне от 13 до 113 = ',b);
b:=0;
for i:= 5 to 105 do
if (i mod 5) = 0 then b:=b+i;
Writeln('Сумма чисел кратных 5 в диапазоне от 5 до 105 = ',b);
b:=0;
<span>Writeln('Числа кратные и 2 и 7 в диапазоне от 2 до 120 ); </span>
for i:= 2 to 120 do
if ((i mod 2) = 0) and ((i mod 7) = 0) then write(i,' ');
<span>end.
Всё просто. Если разделять на программы, то каждый новый цикл это другая программа.
</span>
Если считать, что больные продолжают ходить в школу, заражая каждый день людей, и при этом они не выздоравливают через 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.