Pascal:
program z1;
var i, k, n, ch:integer;
begin
n:=0;
ch:=0;
for i:=1 to 15 do
begin
writeln('Input number:');
readln(k);
if(k mod 2=0) then
ch:=ch+1
else
n:=n+1;
end;
writeln('Нечетных было ', n);
writeln('Четных было ', ch);
end.
MS Excel
__________________________________________
Ккачай кряк для <span>need for speed most wanted, или скачай уже крякнутный.</span>
Объединение {молоко, сметана, кефир, творог, сыр, квас, кофе, чай}.
пересечение {кефир, молоко}.