Я уж не силен в этой программе
но вот вроде должно получиться<span>
</span><span>var
a, b : array [1..16] of Integer;
begin
for var i := 1 to 16 do
a[i] := ReadLnInteger('a[' + i + '] =');
WriteLn('Массив A = ', a);
b := a;
Swap(b[2], b[5]);
Swap(b[4], b[9]);
Swap(b[7], b[15]);
Swap(b[9], b[16]); // повторяем обмен 9, если что?
WriteLn('Массив B = ', b);
end.</span>
Ответ:
Объяснение:
1.Програ́ммное обеспе́чение(допустимо также произношение обеспече́ние (ПО) — программа или множество программ, используемых для управления компьютером
Другие определения из международных и российских стандартов:
совокупность программ системы обработки информации и программных документов[, необходимых для эксплуатации этих программ (
все или часть программ, процедур, правил и соответствующей документации системы обработки информации
компьютерные программы, процедуры и, возможно, соответствующая документация и данные, относящиеся к функционированию компьютерной системы
Программное обеспечение является одним из видов обеспечения вычислительной системы, наряду с техническим (аппаратным), математическим, информационным, лингвистическим, организационным, методическим и правовым обеспечением
VAR
A,B,C,D:integer;
Begin
WriteLn('введите числа A,B,C,D);
ReadLn(A,B,C,D);
if (A=B) and (B=C) and (C=D) then
WriteLn('все числа равны');
else
if (A=B) or (B=C) or (C=D) or (A=D) then
Begin
Write ('только');
WritweLn('два три числа равны');
end
else
WriteLn('все числа разные');
end.
110 Кбайт = 110*1024 байт
16 бит = 2 байта
Количество страниц = 110*1024 / (40*64*2) = 22
Название видеокартыНазвание монитораРазрешениеОбъём видеопамятиКоличество отображаемых цветовMDA — Monochrome Display AdapterMD720x35064 бита - 128 КбCGA — Color Graphics AdapterCD640x200128 КбHGC — Hercules Graphics CardMD +720x348128 КбEGA (1984)-Enhanced Graphics AdapterECD640x350128 битов - 512Кб16-64VGA (1987) — Video Graphics ArrayBCD640x480256 - 512 КбSVGA — Super VGABCD800x600256 Кб - 1 Мб256 - 16 млн.XGA — extended Graphics ArrayECD1600x12001 - 4 Мб