<span>Слова среднего рода, не склоняютьс, имеют единственное счисление.</span>
Ответ:
A, Б, Г, В
Объяснение:
Чем больше & - тем страниц меньше, чем больше |, тем страниц больше.
А Волк | Коза - только | - больше всего страниц
Б (Волк | Коза)&Капуста - | и & - страниц меньше, чем для A
В Волк&Коза&Капуста - 2 &, меньше всего страниц
Г Волк&Капуста - 1 & - страниц несколько больше, чем для В
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
#include <iostream>
using namespace std;
int sum( int n ){
int k = 0;
int t = n;
while ( t > 0 )
{
if ( ( t % 10 ) % 2 == 0 )
k++;
t /= 10;
}
return k;
}
int main()
{
int M,S,p;
cin >> M;
S = 0;
for ( int i = 1; i < M; i++ ){
p = sum(i);
if ( p == 0 ) {
S = S + i;
}
}
cout << S;
return 0;
}
<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=15;
var a:=ArrRandom(n,-49,49); a.Println;
var b:=a.Select(t->2*t).ToArray; b.Println;
var max:=Range(3,n,3).Select(i->b[i-1]).Max;
Writeln('Искомый элемент: ',max)
end.
<u>Пример</u>
-39 -33 -3 -4 -49 -20 -48 -44 -13 -3 -13 6 -6 -20 17
-78 -66 -6 -8 -98 -40 -96 -88 -26 -6 -26 12 -12 -40 34
Искомый элемент: 34
