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.
ток-кот=кто это 954-459=495.
бра+бар=раб это 495+459=954
//PascalABC.Net 3.0, сборка 1052
type
Balls = class
r:real;
constructor (rr:real);
begin r:=rr end;
function VB:real;
begin
VB:=4*Pi*r*sqr(r)/3
end;
end;
var
b:Balls;
R:real;
begin
Write('Радиус шара= '); Read(R);
b:=new Balls(R);
Writeln('Объем шара равен ',b.VB:0:3)
end.
<em><u>Тестовое решение:</u></em>
Радиус шара= 25
Объем шара равен 65449.847
Програ́ммное обеспе́чение <span>(допустимо также произношение </span>обеспече́ние (ПО) — программа или множество программ, используемых для управления компьютером<span>.</span>
Позиционная наша обычная которой пользуемся десять - 10
непозиционная римская десять - XX