Question

Помогите с задачей! (pascal abc .net)Пользователь вводить числа до нуля. Надо:1. Подсчитать сумму все отрицательных четных чисел2. Подсчитать количество четных чисел кратных 3.3. Подсчитать сумму и количество трехзначных нечетных чисел

Answer 1

Program gt;
var a,s1,k1,s2,k2:integer;
begin
a:=1;
while a<>0 do
begin
read(A);
if(a<0)and(abs(a)mod 2=0)then s1:=s1+a;
if(a mod 2=0)and(a mod  3=0)then k1:=k1+1;
if(a>99)and(a<1000)and(a mod 2=1)then begin
k2:=k2+1;
s2:=s2+a;
end;
end;
writeln('условие 1');
writeln(s1);
writeln('условие 2');
writeln(k1);
writeln('условие 3');
writeln(s2,' ',k2);
end.