53

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

legolas 07 июля 2022

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

категория: информатика

39

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.

пользователи выбрали этот ответ лучшим
Знаете другой ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...