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

August 2021 1 14 Report

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

Answers & Comments

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.

Answers & Comments

s klaviatury vvodyatsya 11 chisel najti proizvedenie otricatelnyh chisel delyashihsya

pomogite pozhalusta 1polzuyas tem chto 14lt2lt15 i 22lt5lt23 ocen

05lg8 x lg1sqrtx5 sqrtx5 eto koren iz x5

s klaviatury vvodyatsya chisla poka ih summa menshe 300 najti proizvedenie otricat

3 klass pomogite zadanie netrudnoe sochinenie 7 8 predlozhenij na temu kak n

pomogite pozhalujsta ochen nado ot etogo zavisit moya ocenka v chetverti nado resh

dostatochnoe kol vo ballov za legkij test1ukazhite veshestva himicheskoe vozdejstv

pozhalujstaperedajte sleduyushie predlozheniya v kosvennoj rechii want to sit in t

рекомендуемые вопросы

Helpful Links

Helpful Social