///////////////<u>Pascal abc</u>/////////////
16=2^4; ---> 4 бит для кодировки одного символа
1 байт = 8 битам; 0,5байта =4 битам.
1Кбайт =2^10 байт=1024 байт
4* 1024 бита =0,5 байтов *1024=0,5 *2^10 байтов = 0,5 Кбайтов
ответ 1) 0,5
Я думаю что В. Ведя себя как все, ты вливаешься в круг общения.
Если в своем кругу ты ведешь себя особо вежливо, то не думай что получишь взаимную вежливость.
Var
i,count:integer;
h: array [1..20] of integer;
begin
count:=0;
writeln('Введите элементы');
for i:=1 to 20 do
read(h[i]);
for i:=1 to 20 do
if h[i]>0 then
count:=count+1;
writeln('Количество нулевых элементов ', count)
end.
Var
m:integer;
begin
read (m);
case m of
1: write ('Январь');
2: write ('Февраль');
3: write ('Март');
4: write ('Апрель');
5: write ('Май');
6: write ('Июнь');
7: write ('Июль');
8: write ('Август');
9: write ('Сентябрь');
10: write ('Октябрь');
11: write ('Ноябрь');
12: write ('Декабрь');
end;
end.