var
a,b,c,count:integer;
begin
count:=0;
readln (a,b,c);
if (a mod 2=0) then count:=count+1;
if (b mod 2=0) then count:=count+1;
if (c mod 2=0) then count:=count+1;
writeln (count);
end.
Var i,q,a:integer;
begin
for i:=1 to 20 do begin
read(a);
q:=q+a;
end;
writeln(q);
end.
Шестнадцатиразрядным (16 бит)
кажлор - это зашифрованное слова ложка
Var i: integer; s:real;
Begin
For i:=7 to 2007 do
s:=s+i/(i+4);
Write(s);
End.