2 мб = 2048 кб
2048 / 40 = 51,2(раза больше)
Var
n,i,s:integer;
begin
Write('n='); Read(n);
i:=7; s:=0;
while i<=n do begin
s:=s+i;
i:=i+5
end;
Writeln('S=',s)
end.
1) c)<span>=], < идент. 2>,…;</span>
2)c) real;
160:2=80 (остаток 0)
80:2=40 (остаток 0)
40:2=20 (остаток 0)
20:2=10 (остаток 0)
10:2=5 (остаток 0)
5:2=2 (остаток 1)
2:2=0 (остаток 0)