Входы и выходы
USB проводники
принтер
ксерокс
клавиатура
переходники
Program n_1;
var x, n, s: integer;
begin
x:=-1;
s:=0;
read(x);
if x=0 then writeln('0 0')
else begin
n:=0;
while x<>0 do begin
n:=n+1;
if(x>0) and (x<=22) and (x mod 2 = 0) then s:=s+x;
read(x);
end;
writeln(n, ' ', s);
end
end.
<span> x=154 в начале
a:=x div 100; 154 div 100 = 1 (деление нацело), a = 1
b:=x mod 100; 154 mod 100 = 54 (остаток от деления нацело), b = 54
c:=x mod 10; 154 mod 10 = 4, c=4
s:=a+b+c; 1+54+4 = 59, s=59.
Ответ: 59 </span>