Даны целые числа a, b и с. написать программу подсчитывающую кол-во положительных и кол-во отрицательных чисел среди данных. входные данные -2 4 -1 выходные 2 1. (язык программирования паскаль абс)

213

497

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

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

alicekuznetsova

Информатика

4,6(41 оценок)

Program alpha; var a, b, c, p, v: integer; begin read (a); read (b); read (c); p: =0; // количество отрицательных чисел v: =0; // количество положительных чисел if a < 0 then p: =p+1 else v: =v+1; if b < 0 then p: =p+1 else v: =v+1; if c< 0 then p: =p+1 else v: =v+1; writeln ('кол-во положительных=', v); writeln ('кол-во отрицательных=',p); end.

kamila267

Информатика

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

Треугольник существует если: сумма двух сторон будет больше третьей стороны. такое действие нужно сделать со всеми сторонами. и после того, как вы убедитесь, что сумма двух любых сторон треугольника будет больше третьей стороны, можно точно сказать, что такой треугольник существует