Числа вводятся по одному с клавиатуры. Определить сумму тех из них, которые являются парными и тех, которые являются нечетными.

[d_dima]

Решать в Паскале. Заранее спасибо

[interacia]

Если я все правельно понял про парные числа.

program programmersforum1196099;
var
a1,a,SumParn,SumNehet:integer;
bol:boolean;
begin
SumParn:=0;
SumNehet:=0;
Writeln('Введите набор ненулевых целых чисел; признак его завершения - число 0.');
Readln(a1);
Readln(a);
bol:=true;
if (a1 mod 2)=1 then begin  SumNehet:=SumNehet+a1;  end;
While (a<>0) do
begin
if (a = a1)and(bol) then begin  SumParn:=SumParn+a+a1; bol:=false; end;
if (a <> a1) then bol:=true;
if (a mod 2)=1 then begin  SumNehet:=SumNehet+a;  end;
a1:=a;
Read(a);
end;
Writeln('Сумма нечетных чисел из данного набора = ',SumNehet);
Writeln('Сумма парных чисел из данного набора = ',SumParn);
end.

Ссылка на код с комментарием

[Serge_Bliznykov]

думаю, что всё проще. есть телепатическое предчувствие, что в данной задаче "парные" - это ЧЁТНЫЕ числа.


p.s.

if (a1 mod 2)=1 then

откройте для себя функцию odd()

[d_dima]

Спасибо за помощь)