Информатика, опубликовано 2018-08-22 22:55:02 by Гость

ПООМГИТЕ ПЛИИИЗ!С клавиатуры вводятся числа до тех пор пока сумма этих чисел не превысится 300. Найдите произведение нечетных чисел.найдите кол-во отрицательных чисел.

Ответ оставил Гость

uses crt;
Var a,x1,x2:integer;
Begin
x1:=1;
x2:=0;
readln(a);
While a      Begin
      if (a mod 20) then x1:=x1*a;
      if (a      readln(a);
      end;
Writeln(Произведение нечётных чисел=, x1);
Writeln(Кол-во отрицательных чисел= , x2);
readln;
end.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.