35 ! последовательность оканчивается 0, определить сумму четных чисел, кол-во нечетных. если есть хотя бы одно отрицательное-на экран вывести слово "отрицательное".
// PascalABC.Net 3.0, сборка 1076 var s,ss:string; i,n,p:integer; begin Write('Введите строку: '); Readln(s); n:=Length(s); p:=Pos(',',s); if p in [1..n-1] then begin ss:=Copy(s,p+1,n-p); n:=Length(ss); p:=Pos(',',ss); if p=0 then Writeln(ss) else Writeln(Copy(ss,1,p-1)) end else Writeln('*** Нечего выводить ***') end.
s, n, a : integer;
begin
a := 1;
s := 0;
n := 0;
repeat
readln(a);
if a <> 0 then begin
if a mod 2 = 0 then s += a
else n += 1;
if a < 0 then
writeln('Отрицательное');
end
until a = 0;
writeln('Сумма четных = ', s);
writeln('Количество нечетных = ', n)
end.