Дана таблица. К столбцам у1, у2, у3 было применено условное форматирование: Укажите правило, по которому было выполнено условное форматирование для ячеек, отмеченных зеленым и красным цветом
Var a: array[1..5,1..5] of integer; i,j,p,s: integer; begin Writeln('Введите элементы матрицы: '); for i:= 1 to 5 do for J:=1 to 5 do read(a[i,j]); for i:= 1 to 5 do begin for j:= 1 to 5 do write(A[i,j], ' ' ) ; writeln(); end; p:= 1; s:= 0; for i:= 1 to 5 do for J:=1 to 5 do if a[i,j] > 0 then begin s:= s+1; p:= p*a[i,j]; end; Writeln('Количество положительных элементов = ', s); Writeln('Произведение положительных элементов = ', p); end.
Запишем 32-значное двоичное число без лишних знаков. При необходимости добавляем ведущие нули
"11001100100110101011111001101111"
Разделим на 4 группы по 8 цифр и переведем их в 10ричную сс
11001100{2} = 204{10}
10011010{2} = 154{10}
10111110{2} = 190{10}
01101111{2} = 111{10}
IP = 204.154.190.111
"11011100111000111110001001110010"
Запишем 32-значное двоичное число без лишних знаков. При необходимости добавляем ведущие нули
"11011100111000111110001001110010"
Разделим на 4 группы по 8 цифр и переведем их в 10ричную сс
11011100{2} = 220{10}
11100011{2} = 227{10}
11100010{2} = 226{10}
01110010{2} = 114{10}
IP = 220.227.226.114
i,j,p,s: integer;
begin
Writeln('Введите элементы матрицы: ');
for i:= 1 to 5 do
for J:=1 to 5 do
read(a[i,j]);
for i:= 1 to 5 do
begin
for j:= 1 to 5 do
write(A[i,j], ' ' ) ;
writeln();
end;
p:= 1;
s:= 0;
for i:= 1 to 5 do
for J:=1 to 5 do
if a[i,j] > 0 then
begin
s:= s+1;
p:= p*a[i,j];
end;
Writeln('Количество положительных элементов = ', s); Writeln('Произведение положительных элементов = ', p);
end.