Найти количество положительных чисел среди введенных с клавиатуры четырёх чисел в паскале!

141

431

Посмотреть ответы 2

Ответы на вопрос:

katrin05069

Информатика

4,4(57 оценок)

Var a,b,c,d: integer; begin writeln('введите 4 числа через пробел'); readln(a,b,c,d); if (a> 0)and(b> 0)and(c> 0)and(d> 0) then writeln('все числа положительные') else if ((a< 0)and(b> 0)and(c> 0)and(d> 0))or((a> 0)and(b< 0)and(c> 0)and(d> 0))or((a> 0)and(b> 0)(c< 0))or((a> 0)and(b> 0)and(c> 0)and(d< 0)) then writeln('3 числа положительные') else if ((a< 0)and(b< 0)and(c> 0)and(d> 0))or((a< 0)and(b> 0)and(c< 0)and(d> 0))or((a< 0)and(b> 0)and(c> 0)and(d> 0))or((a< 0)and(b> 0)and(c> 0)and(d< 0))or((a> 0)and(b< 0)and(c< 0)and(d> 0))or((a> 0)and(b< 0)and(c> 0)and(d< 0))or((a> 0)and(b> 0)and(c< 0)and(d< 0)) then writeln('2 числа положительных'); else if ((a> 0)and(b< 0)and(c< 0)and(d< 0))or((a< 0)and(b> 0)and(c< 0)and(d< 0))or((a< 0)and(b< 0)and(c> 0)and(d< 0))or((a< 0)and(b< 0)and(c< 0)and(d> 0)) then writeln('1 положительное число') else if (a< 0)and(b< 0)and(c< 0)and(d< 0) then writeln('нет положительных чисел'); readln end.

Artemis45677654

Информатика

4,8(29 оценок)

Число после точки обозначает степень ! 135=10000111 .2197=11000101.2 203=11001011.2 11101 = 2.4 *1 + 2.3*1 + 2.2*1 + 2.1*0 + 2.0*1 = 16 + 8 + 4 + 0 + 1 = 29 100101 = 2.5*1 + 2.4*0 + 2.3*0 + 2.2*1 + 2.1*0 + 2.0*1 = 32 + 0 + 0 + 4 + 0 + 1 = 37 11011 = 2.4*1 + 2.3*1 + 2.2*0 + 2.1*1 + 2.0*1 = 16 + 8 + 0 + 2 + 1 = 27

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.