Выберите из списка истинные высказывания: Two plus six is eight
Fe - металл
Инверсия - это логическая операция Компьютерная графика - самая интересная тема в курсе школьной информатики
Основоположником алгебры логики является Джордж Буль
Исследования Клода Шеннона позволили применить алгебру логики в вычислительной технике
!
a:array[1..50] of integer;
b:array[1..2,1..25] of integer;
i,j,n:integer;
begin
writeln('Вводите элементы массива, конец ввода по значению 7777');
n:=0;
repeat
read(i);
if i<>7777 then begin
n:=n+1;
a[n]:=i
end
until i=7777;
if n mod 2<>0 then begin
n:=n+1;
a[n]:=0
end;
for j:=1 to n div 2 do begin
b[2,j]:=a[2*j-1];
b[1,j]:=a[2*j]
end;
writeln;
for i:=1 to 2 do begin
for j:=1 to n div 2 do write(b[i,j]:5);
writeln
end
end.
Тестовый прогон:
Вводите элементы массива, конец ввода по значению 7777
2 5 1 6 9 2 7777
5 6 2
2 1 9
Вводите элементы массива, конец ввода по значению 7777
2 5 1 6 9 2 4 7777
5 6 2 0
2 1 9 4