3) a)Z2:AH3; б) N2:R2
Y5:AA6 U2:U4
AF5. Q4:S4.
4)C3*$B$1
D1*$B$1
E4*$B$1
F2*$B$1
5)D5)35
E2)22
Скину ответ через 10 минут ;)))))
<span>2) каждому символу их двоичные коды</span>
Векторный
................................
Program one;
var a,b,c,k: integer;
begin
writeln ('Введите числа, нажимая после каждого enter');
readln (a);
readln (b);
readln (c);
k:=0;
If a>0 then k:=k+1 else k:=k+0;
If b>0 then k:=k+1 else k:=k+0;
If c>0 then k:=k+1 else k:=k+0;
writeln ('Количество положительных чисел ', k)
end.