Женьке

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
sum, min, c, a, b: integer;
count: byte; p: boolean;
BEGIN
count:=0; min:=32767; sum:=0;
write('-> ');
repeat
read(c);
if (c<min) and (c<>0) then min:=c;
sum:=sum+c;
p:=false; a:=abs(c);
repeat
b:=a mod 10;
if (b mod 2=0) then p:=true;
a:=a div 10;
until a=0;
if not(p) then count:=count+1;
until (c=0);
writeln(' Сумма: ', sum);
writeln(' Мин.: ', min);
writeln('Эл-тов: ', count);
END.