3) 45
4)
Program z4; Var b,a,i,m:integer; Begin read(b);for i:=1 to b do beginread(a);if a>0 and (a mod 2 = 0 )then m:=m+a; end;writeln(m);End.
Ответ:
1:2232 кб 2:
0,002148
Объяснение:
В 1 мегабайте-1024 килобайт это в 1 варианте а во втором просто килобайты делим на 1024 и получится кол-во Мегабайт
Вот держите.
Прикладываю скрин графика и файл таблиц.