Var
N: integer;
s: string;
i,c: byte;
begin
ReadLn(N);
Str(N,s);
c:=0;
for i:=1 to Length(s) do
if s[i] in ['0','2','4','6','8'] then
Inc(c);
WriteLn(c);
end.
Система - это целое<span>, </span>состоящее из частей<span>, </span>взаимосвязанных между собой<span>.</span>
Компьютером управляет операционная система состоящая из набора различных программ при помощи различных команд. Если имеется ввиду удаленное управление компьютером, то разные программы бывают.
Это информатика?
высь, гусь, рысь, лось
1. калькулятор инфоомацию обрабатывает