Правильный ответ Б потому как 500кбайт это 4096000 бит, и если поделить выйедт 32 сек
Var k,x:integer;
begin
readln(x);
k:=0;
while x<>0 do begin
if x mod 2 = 0 then
k:=k+1;
readln(x);
end;
write(k);
readln
end.
Program enot;
Var a: array [1..2] of integer;
i:integer;
begin
for i:= 1 to 2 do
begin
a[i]:=random(3);
writeln(a[i]);
end;
<span>end.</span>
1 байт = 8 бит
32 Мбит /8 = 4Мбайт
4*60сек*15мин=3600Мбайт=3.51Гбайт