35-6=29
29-20=9 любят только кино
15-9=6 любят и кино, и дискотеки
// Вот тебе первая задача у меня QBasic не хочет с русскими буквами дружить поэтому слово алгоритмизация написано транслитом algoritmizacia
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.
80*128*8=81920 бит=10 Кбайт
30/10=3 с
Ответ: 3 с
1) в 6СС-3441
2)в 7 СС -2625
3) в 5 СС
в 4) надо перевести все в 10СС и отметить точки на осях