Во вложении решение. Триады-это разбиение по 3 цифры, тетрады - это по 4 цифры.
При переводе из десятичной сс в двоичную с помощью таблицы пишешь 1, если число нечетное (т.к. нечетное число на 2 без остатка не делится, и в остатке всегда 1. Этот остаток ты и пишешь, где нечетное). А чётное делится на 2 без остатка, поэтому там, где число чётное, пишется ноль.
22 1) 2+2=4 2) 2-2=0 3)2*2=4 4)2:2=1
Элементарно.Перед else не пишется ;
Попробуй добавить writeln
Проверь перед else должен быть ещё end(т.к подсистема)
1). var
a:integer;
b,c,x:real;
begin
a:=7;
b:=3.2;
c:=a+b;
writeln('summa=',c);
c:=c/2;
x:=a-c;
writeln('x=',x,'kvadrat=',x*x);
end.
2). Первое-выведется сумма цифр равная "C"
второе-выведется значение "х"=а минус полу сумма(1,9 это будет) а потом квадрат этого числа, т.е. 1,9*1,9=3,61.... вроде все)))
var a:array [1..12] of integer;
i:integer;
begin
for i:=1 to 12 do a[i]:=random(6)+1;
writeln(a);
for i:=1 to 12 do a[i]:=a[i]*2;
writeln(a)
end.