//PascalABC.Net 3.2
function f(n: integer):=3*n-1;
begin
var sum:=0;
for var i:=1 to 60 do sum+=f(i);
write (sum);
end.
Const n=5;
var
a,b:array[1..n,1..n] of integer;
i,j: byte;
max2,k5:integer;
begin
randomize;
k5:=0;
max2:=0;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=random(1,100);
write(a[i,j]:4);
if (i=2) and (a[i,j]>max2)
then max2:=a[i,j];
if (j=5) and (a[i,j] mod 2 =0)
then k5:=k5+1;
end;
writeln;
end;
writeln;
writeln ('Максимальный элемент 2-ой строки = ',max2);
writeln ('Количество четных элементов 5-го столбца = ',k5);
end.
---------------------------------------------
Пример:
2 26 38 58 16
70 24 40 39 35
74 38 69 93 94
64 6 18 56 93
44 86 17 93 56
Максимальный элемент 2-ой строки = 70 <br>
Количество четных элементов 5-го столбца = 3
<span>А) (А и «Сканер является устройством ввода») = ИСТИНА
А =1 (истина)
</span>«Сканер является устройством ввода»=1 (истина)
<span>
Б) (С или «Высказывание может быть вопросительным предложением») = ИСТИНА
С =1 (истина)
</span>«Высказывание может быть вопросительным предложением»=0 (ложь)
<span>
В) (F или «Оперативная память ПК является энергонезависимой») = ЛОЖЬ
F=0 (ложь)
</span>«Оперативная память ПК является энергонезависимой»=0 (ложь)
Источник зрительной информации это зрение.
Ответ, ответ, ответ, ответ
7 бит