Pascal abc.
<u>Проверка</u>
введите номер автобусного билета (6 цифр)
666666
счастливый
<span>введите номер автобусного билета (6 цифр)
123456
не счастливый<span>
</span></span>
Для начала переведём эти числа в двоичную систему счисления:
36 = 100100 - A
4 = 100 - B
следовательно:
A +B = 101000
B - A = ....;
A * B = 10010000
A ∧ B= 10010000
A⊕B= 101000
Решение в приложенном файле PDF (не со всех телефонах его видно).
Program massiv;
var
a: array [1..50, 1..50] of real;
i, j, m, n: integer;
begin
writeln('ввод количество строк');
read(n);
writeln('ввод количество столбцов');
read(m);
for i := 1 to n do
begin
for j := 1 to m do
begin
a[i, j] := random(10);
write(a[i, j]:5);
end;
writeln;
end;
end.