Пользователь вводит числа с клавиатуры до тех пор, пока не введет число «0»....

Question

Пользователь вводит числа с клавиатуры до тех пор, пока не введет число «0». После ввода «0» программа выводит на экран количество положительных и отрицательных введенных чисел.ВАЖНО: написать программу с использованием цикла while 20 баллов даю​

Comments

язык с++ подойдет?

Answer 1

program dlb;

var

p,o,n: integer;

 begin

n := 1;

while n <>0 do

 begin

   readln(n);

   if n >0 then

     p := p + 1;

   if n < 0 then

     o := o + 1;  

   end;

writeln('Количество отрицательных чисел: ', o);

writeln('Количество положительных чисел: ', p);

 end.

Comments

1. это не паскаль. 2. это полностью)

---

исправил на паскаль