Const
M = 3;
N = 4;
Var
A:array[1..M,1..N] of integer;
i,j,k:integer;
Begin
Randomize;
WriteLn('Исходный массив:');
For i:= 1 to M do
Begin
For j:= 1 to N do
Begin
A[i,j]:=random(71)-30;
Write(A[i,j]:3,' ')
End;
WriteLn;
End;
Write('Номер столбца: ');
For j:= 1 to N do
Write(j:3,' ');
WriteLn;
Write('Искомое кол-во:');
For j:= 1 to N do
Begin
k:=0;
For i:= 1 to M do
if A[i,j]>0 then k:=k+1;
Write(k:3,' ');
End;
End.
Пример:
Исходный массив:
33 -21 -24 4
-20 28 -29 25
-15 -1 11 3
Номер столбца: 1 2 3 4
Искомое кол-во: 1 1 1 3
АХ^A = БАХ
Очевидно, что А не равно 1, так как AX^1 = AX.
A также не может быть >=3, так как даже при возведении минимального двузначного числа в 3 степень получится четырехзначное число (10^3 =1000).
Следовательно, A=2
Так как в числах AX и БАХ последние цифры совпадают, то Х может быть 1, 5 или 6.
21^2 = 441 - не подходит
25^2 = 625 - подходит
26^2 = 676 - не подходит
Ответ: 25^2 = 625
PROGRAM B02;
CONST
max = 1000;
VAR
index:word;
sum:real;
BEGIN
index:=2;
sum:=1;
while (index<=max) do begin
sum:=sum+1/index;
index:=index+1;
end;
writeln('1+1/2+1/3+1/4....+ 1/',max,' = ', sum);
END.
Количество пикселей = 400*240 = 96000