Очень Задание 3
Дайте подробное описание характеристик 4 материнских плат, заполнив таблицу 3.
1.GIGABYTE GA-H110M-S2H rev1.0 (RTL) LGA1151 PCI-EDsub+DVI+HDMI GbLAN SATA MicroATX 2DDR4 8-канальный HAD 1x PS/2 клавиатура, 1x PS/2 мышь, 2x USB 3.0 (USB 3.1 Gen1), 4x USB 2.0, Line-out, Line-in, Mic-in
2.ASUS ROG STRIX X370-I GAMING (RTL) AM4 PCI-EGbLAN+WiFi+BT SATA RAID Mini-ITX 2DDR4 8-канальный HDA 2 разъема M Key SATA/PCI-E с поддержкой карт Type 2242/2260/2280 2x USB 3.0 (USB 3.1 Gen1), 2x USB 2.0 1 слот 16x PCI-E 3.0.
3. ASUS J1800I-C/CSM (Celeron J1800 SoC onboard) (RTL) Dsub+HDMIGbLAN SATA Mini-ITX 2DDR3 SO-DIMM 1x USB 3.0 (USB 3.1 Gen1), 4x USB 2.0 8-канальный HDA кодек Realtek ALC887-VD
4.Gigabyte GA-H61M-USB3V (Intel LGA1155) H61 2xDDR3, VGA(D-SUB+DVI), 1xPCI-e x16, 1xPCI-e x1, 8xAudio, 4xSATAII, 2xUSB3.0, mATX
Таблица 3 Мат.плата 1 Мат.плата 2 Мат.плата 3 Мат.плата 4
Модель
Сокет
Чипсет
Опер. память
Слоты расширения
Сеть
Аудио
Внешние интерфейсы
Доп.инф.
##
var h := MatrRandom(5, 5, -7, 7);
h.Println(4);
Print('Произведение положительных элементов первой строки массива равно',
h.Row(0).Where(t -> t > 0).Product)
------------------------
##
var h := MatrRandom(5, 5, -7, 7);
h.Println(4);
h.Transform((v, i, j) -> j.IsEven and (v < 0) ? 100 : v);
Println('Результат замены отрицательных элементов в нечетных столбцах');
h.Println(4)
---------------------
##
var h := MatrRandom(5, 5, -7, 7);
h.Println(4);
var a := h.ElementsWithIndices.Where(t -> t[2] > t[1]).Select(t -> t[0]).ToArray;
Println('Массив из элементов, стоящих над главной диагональю');
a.Print
Объяснение:
Задание 1
program bukva;
const R=[' ','.',',',';',':','?','!','-']; // разделители
var
s,bukv:string;
i,kol,len:integer;
procedure UpCaseRus(var s:string);
{русские в верхний регистр}
var i:integer;
begin
for i:=1 to length(s) do
if s[i] in ['а'..'п'] then s[i]:=chr(ord(s[i])-32)
else if s[i] in ['р'..'я'] then s[i]:=chr(ord(s[i])-80)
else if s[i]='ё' then s[i]:='Ё';
end;
begin
readln(s);
readln(bukv);
UpCaseRus(s);
UpCaseRus(bukv);
For i:=length(s) downto 2 do
if ((s[i] in R) and (s[i-1] in R)) then delete(s,i,1);
len:=length(s);
kol:=0;
for i:=len downto 1 do
begin
if s[i] in R then
if s[i+1]=bukv then kol:=kol+1;
end;
if s[1]=bukv then kol:=kol+1;
writeln('Слов на букву '+bukv+' ',kol);
readln;
end.
Задание 2
const r=[' ','.',',',';',':','?','!','-'];
var
s:string;
i,kol,d:integer;
begin
readln(s);
len:=length(s);
kol:=0; d:=0;
For i:=length(s) downto 2 do
if ((s[i] in r) and (s[i-1] in r)) then delete(s,i,1);
for i:=1 to length(s) do
begin
if s[i] in r then kol:=kol+1
else if (s[i] in ['0'..'9']) then d:=d+1;
end;
writeln('Слов всего ',kol+1);
writeln('Цифр в тексте ',d);
readln;
end.