//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(ReadSeqIntegerWhile(x->x<>0).Where(x->x.IsEven).Count());
end.
Порядок действий
С:\Осень\Деревья\Клён
С:\Осень\Деревья
С:\Осень\Деревья\Полив
С:\Осень\Деревья\Полив
С:\Осень\Деревья
С:\Осень\Деревья\Уход
Ответ: 3
,,,,,,,,,,,,,,,,,,,,,,,,
Program z1;
var
a: integer;
c: byte;
begin
readln(a);
c:=0;
while a <> 0 do begin
c:=c + a mod 10;
a:=a div 10;
end;
writeln('Summa: ', c);
<span> end.</span>