Вводятся целые числа, окончание ввода цифра 0. Найти сумму отрицательных нечетных чисел....

Question

Вводятся целые числа, окончание ввода цифра 0. Найти сумму отрицательных нечетных чисел. Найти произведения положительных чисел кратных 3. Предусмотреть, если таких чисел не было- вывести информационное сообщение. Задача Паскаль

Answer 1

Var k,sum,summ: Integer;
begin
summ:=1;
repeat
writeln('Введите число');
readln(k);
if (k mod 2<>0) and (k<0) then sum:=sum+k;<br>if (k>0) and (k mod 3=0) then summ:=summ*k;
until k=0;
if (sum=null) and (summ=1) then writeln('Нет таких чисел') else
begin
writeln('Сумма: ',sum);
writeln('Произведение: ',summ);
end;
end.