Персональный компьютер, текстовые процессоры, электронные таблицы
program test;
var a, b, i: integer;
begin
write('Enter a, b: ');
readln(a, b);
for i:=a to b do
if i mod 2 = 0 then
write(i, ' ');
readln;
end.
1)8^10=2^3^10 2^30/2^10(Кбайт)2^10=2^10=1024 <span>Мбайт</span>
2) A= K*b
Надо перевести в биты 4Кб=2^2*2^13=2^15
K=2^15/2^4=2^11=2048 c