profile
Опубликовано 6 лет назад по предмету Информатика от Vrozen

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

  1. Ответ
    Ответ дан garfild214

    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.

Самые новые вопросы