Var a:array[1..100]of integer;
nol,chet,nechet,i,n:integer;
begin
readln(n);
for i:=1 to n do begin
readln(a[i]);
if (a[i] mod 2=0)and(a[i]<>0) then chet:=chet+1;
if (a[i] mod 2=1) then nechet:=nechet+1;
if a[i]=0 then nol:=nol+1;
end;
writeln('четных :',chet,' ','нечетных :',nechet,',' ',нулевых :',nol);
<span>end.</span>
Решение смотри во вложении.
<span>1) Из (а) и (б): Ваня и Петя - не С. и не В. Т.е. они либо П, либо К. </span>
<span>Соответственно, Коля и Саша - либо С, либо В. </span>
<span>2) Из (в) и (г) следует, что Коля не В, а значит он - С (поскольку Коля - либо С, либо В). </span>
<span>Значит, В - это Саша (поскольку Саша - либо С, либо В, а С - это Коля) </span>
<span>3) Раз Саша - В, то Петя выше, чем П (из пунктов (в) и (д)), значит, он не П, а К. </span>
<span>Соответственно, Ваня - П.</span>
Подскажите пожалуйста!!! Нужно составить слова в которых:- буквы: в, е, с, т, о.- буквы: с, е, р, д, а.- буквы а, л, о, м, с- бу
Леди Винтер
<span>- буквы: в, е, с, т, о: отвес, отсев
- буквы: с, е, р, д, а: среда, адрес
- буквы а, л, о, м, с: масло, смола
- буквы а, к, п, я, т: пятка, пятак, тяпка</span>
Пишешь свое мнение. Например: в сети есть совершенно все, что нам нужно. Люди в интернете делятся своим опытом, отвечают на вопросы, создают сайты и электронные словари. Благодаря интернету, мы можем общаться с людьми, находить новые знакомства и даже отношения.