Паскаль.вводятся числа, последнее число "0", определить сколько в них положительных нечетных и найти сумму отрицательных. Помогитеее!!
Паскаль.
вводятся числа, последнее число "0", определить сколько в них положительных нечетных и найти сумму отрицательных.
Помогитеее!!
Гость
Ответ(ы) на вопрос:
Гостьvar n,k,x: integer;
begin
repeat
readln(x);
if x<0 then n:=n+x;
if (x mod 2=1) then k:=k+1;
until x=0;
writeln('Число нечетных положительных: ',k);
writeln('Сумма отрицательных: ',n);
end.
Не нашли ответ?
Похожие вопросы