Поомгите ! с клавиатуры вводятся числа до тех пор пока сумма этих чисел не превысится 300. найдите произведение нечетных чисел.найдите кол-во отрицательных чисел.

269

292

Посмотреть ответы 2

Ответы на вопрос:

0Peppa0

Информатика

4,5(59 оценок)

uses crt; var a,x1,x2: integer; beginx1: =1; x2: =0; readln(a); while a< 300 do begin if (a mod 2< > 0) then x1: =x1*a; if (a< 0) then x2: =x2+1; readln(a); end; writeln('произведение нечётных чисел=', x1); writeln('кол-во отрицательных чисел=' , x2); readln; end.