Program A1;
var x, i, s: integer;
begin
writeln('Введите число x');
readln(x);
s:=0;
for i:= 1 to x do
if x mod i = 0 then
begin
write(i,' ');
s:=s+i;
end;
writeln;
writeln('s=',s);
<span>end.</span>
Проведем упрощения.
Оба выражения свелись к одному и тому же. Его функциональная схема дана во вложении.
1 бит
1 байт = 8 бит
1 Кб = 1024 байта
1 Мб = 1024 Кб
_______________
16 777 216 : 8 : 1024 : 1024 = 2 Мб
Ответ: 2 Мб
Раст-это растровая (графика)