Тюльпан это такой провод, а точнее три в одном ну там красный,жёлтый и белый.
Ответ:
Var
y,x: integer;
begin
writeln('Ведите ваше число:');
read(x) ;
if x > 2 then
writeln('Результат y =: ', x+3)
Else
if x <=- 2 then
writeln('Результат y =: ', 1 div x);
Readln ;
end.
Var
m : array[1..4,1..4] of Integer;
m_new : array[1..4] of Integer;
i,j : Integer;
Begin
For i:=1 to 4 do
Begin
For j:=1 to 4 do
Begin
m[i,j]:=Random(100);
Write(m[i,j]:5);
If i=j then m_new[i]:=m[i,j];
end;
Writeln;
end;
Writeln('Главная диагнональ: ');
For i:=1 to 4 do Write(m_new[i]:5);
Writeln;
end.
Это же легко просто берёшь эти числа и просто умножаешь каждое на два и все
2 бита потому что- 4^5=1024
(всего есть 4 вида букв, каждая из них задаётся 2 битами: 2^2=4
например:
00 - а
01 - б
10 - в
11 - г
В итоге можно задать 1024 слов из пяти двубитных букв
Вообщем поделить на 5