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;
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.