Написать программу: c клавиатуры последовательно вводятся числа, пока не введут 0. вывести на экран количество положительных и отрицательных чисел, введенных с клавиатуры.

281

430

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

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

vladugan

Информатика

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

Var x, otrc, poloz: integer; begin repeat write('введите число: '); readln(x); if x > 0 then inc(poloz); if x < 0 then inc(otrc); until x = 0; writeln('количество положительных чисел: ', poloz); writeln('количество отрицательных чисел: ', otrc); end.

AlexanderVard

Информатика

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

Var n,k: real; ///объявленные переменные begin ///старт цикла read(n); ///ввод переменной n k: =n*(n-3)/2; writeln('кол-во диагоналей = ',k); ///вывод ответа end. написано на паскале abc.