// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var a:=ArrRandom(ReadInteger('n='),1,100); a.Println;
Writeln('Четных элементов: ',a.Where(x->x.IsEven).Count)
end.
<u><em>Тестовое решение</em></u>
n= 15
48 48 85 94 39 45 22 16 75 51 85 97 91 31 92
Четных элементов: 6
1101110(2)=1*2^6+1*2^5+1*2^3+1*2^2+1*2^1=64+32+8+4+2=110
110(2)=1*2^2+1*2^1=4+2=6
Изначально было записано число 6
1→13; +1 +2 *3; 9
--------------------------------------
1 начало
2 1+1 1 команда
3 2+1; 1+2; 1*3 3 команды
4 3+1; 2+2 3+1=4 команды
5 4+1 3+2 4+3=7
6 5+1 4+2 2*3 7+4+1=12
7 6+1 5+2 12+7=19
8 7+1 6+2 19+12=31
9 8+1 7+2 3*3 31+19+3=53
10 9+1 53
11 10+1 9+2 53+53=106
12 11+1 10+2 106+53=159
13 12+1 11+2 159+106= 265 < ---- ответ
Var a,b,c,d:integer;
begin
writeln('Введите 4 числа:');
readln(a,b,c,d);
if b*d mod 2 = 0
then writeln('b = ',b,' d = ',d,' ',b,'*',d,' = ',b*d);
end.
Пример:
<span>Введите 4 числа:
</span><span>51 32 19 73
</span>b = 32 d = 73 32*73 = 2336