1/8 MB = 128 KB
4 МБ = 4096 KB
В результате выполнения этой программы будет напечатан 0
Если трассировать программу по шагам то мы увидим что s меняется в цикле вот так
s1=-4
s2=12
s3=-24
s4=24
Начиная с 5 шага получаем (5-5)*s т.е 0 и далее чтобы мы на 0 не умножали так и будет 0
Var
i,x:integer;
sr:real;
begin
sr:=0;
for i:=1 to 4 do
begin
write('Оценка за задачу №',i,' ');
readln(x);
sr:=sr+x;
end;
sr:=sr/4;
write('Средняя оценка ',Round(sr));
End.<span>
</span>