Question

Сделать программу в паскале. Складіть программу за якою числа вводятся з клавіатури до тих пір, поки конистувач не веде число 0. Серед цих чисел підрахувати додатні і від'ємні. робити через while

Answer 1

Var
   A,p,o,n:integer;
Begin
Read(A);
While A<>0 do
   Begin
   if A > 0 then p:=p+1
   else o:=o+1;
   Read(A);
   End;
WriteLn('Количество положительных (>0): ',p);
WriteLn('Количество отрицательных (<0): ',o);
End.


Пример работы программы:

1
2
3
-4
-5
0
Количество положительных (>0): 3
Количество отрицательных (<0): 2

Answer 2

Программа на Паскале для подсчета количества положительных и отрицательных чисел, вводимых пользователем с клавиатуры, пока не будет введено число 0:

program CountPositiveAndNegativeNumbers;

var
  number, positiveCount, negativeCount: Integer;

begin
  positiveCount := 0;
  negativeCount := 0;
  
  writeln('Введите числа. Для завершения введите 0.');
  
  repeat
    write('Введите число: ');
    readln(number);
    
    if number > 0 then
      positiveCount := positiveCount + 1
    else if number < 0 then
      negativeCount := negativeCount + 1;
  until number = 0;
  
  writeln('Количество положительных чисел: ', positiveCount);
  writeln('Количество отрицательных чисел: ', negativeCount);
end.

В данной программе используется цикл `repeat..until`, который выполняется до тех пор, пока пользователь не введет число 0. Внутри цикла происходит ввод числа с клавиатуры и проверка его значения. Если число больше 0, увеличивается счетчик положительных чисел (`positiveCount`), если число меньше 0, увеличивается счетчик отрицательных чисел (`negativeCount`). После завершения цикла выводится результат - количество положительных и отрицательных чисел.