program n_1;
var n, i, m, s: integer;
begin
s:=0;
read(n);
for i:=1 to n do begin
read(m);
if m mod 2 = 0 then s:=s+1;
end;
writeln(s);
end.
5-1;3-5;2-1;4-3;1-2. все правильно должно быть
Program task;
var x,i,sum:integer;
begin
readln(x);
sum := 0;
for i := 1 to 4 do
begin
sum := x mod 10 + sum;
x := x div 10;
end;
writeln(sum);
readln;
<span>end. </span>
Правильны ответ вариант А.
1) - основание минимальное =6
2) 10011100 - вариант 1
3) 46(10) = 56(8) -> 4 вариант
4) 46(10) = 2Е(16) - 2 вариант
5) 46(10) = 101110(2) - 3 вариант