Сообщение о видах персональных компьютерах и их использование
Видятся летом и зимой:соеденяй дик с кик, дик рик, рик ник.
летом или зимой:дик ник, дик тик, дик кик, дик рик, тик ник, ник кик, тик рик.
не летом: дик ник, дик тик, ник рик, тик кик.
не зимой: тик ник, ник рик, тик кик,ник кик, тик рик.
не зимой и не летом: тик кик, ник рик.
видятся зимой и не летом: дик ник, дик кик.
48 в двоичной 110000, значит г) 4
Var n,i:Integer;
begin
i:=0;
repeat
Readln(n);
if (n mod 2=0) and (n<>0) then
Inc(i);
until n=0;
Writeln;
Writeln(i);
readln;
<span>end.</span>
Программа реализована на языке Паскаль