ПООМГИТЕ ПЛИИИЗ!С клавиатуры вводятся числа до тех пор пока сумма этих чисел не превысится 300. Найдите произведение нечетных чисел.найдите кол-во отрицательных чисел.
uses crt; Var a,x1,x2:integer; Begin x1:=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.
Answers & Comments
uses crt;
Var a,x1,x2:integer;
Begin
x1:=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.