#include <iostream>
using namespace std;
int main(){
setlocale(LC_ALL, "Russian");
int mas[20] = {};
int buff = 0;
for (int i = 1; i <= 20; i++){
cout << "Введите " << i << " число" << endl;
cin >> mas[i];
if (mas[i] % 2 == 0)
{
buff++;
}
}
cout << "Количество чётных: " << buff << '\n';
cout << "Количество нечётных: " << 20-buff << '\n';
}
Var m,mk,k:integer;
begin
readln(m);
k:=0;
mk:=1;
while mk<m do
begin
mk:=mk*4;
k:=k+1;
end;
k:=k-1;
writeln(k);
end.
Пример:
500
4
Const
N = 3;
M = 4;
Var
A:array[1..N,1..M] of integer;
B:array[1..M,1..N] of integer;
i,j:integer;
Begin
WriteLn('А: ');
For i:= 1 to N do
Begin
For j:= 1 to M do
Begin
A[i,j]:=random(21)-10;
Write(A[i,j]:3,' ')
End;
WriteLn
End;
WriteLn('Б: ');
For i:= 1 to M do
Begin
For j:= 1 to N do
Begin
B[i,j]:=A[j,i];
Write(B[i,j]:3,' ')
End;
WriteLn
End;
End.
выполняет арифметические операции, выполняет лог. операции, управляет ... обрабатывает ....