Question

Написать программу чтоб работала в Pascal запрашивает с клавиатуры три произвольных числа и выводит на экран сообщение о том, сколь-ко из них отрицательных, положительных и нулевых.

Answer 1

PascalABC
var x,y,z:real;
k,m,n:integer;
begin
k:=0;
m:=0;
n:=0;
writeln('Введите первое  число');
readln(x);
writeln('Введите второе  число');
readln(y);
writeln('Введите третье число');
readln(z);
if x>0 then k:=k+1
else if x=0 then m:=m+1
else n:=n+1;
if y>0 then k:=k+1
else if y=0 then m:=m+1
else n:=n+1;
if z>0 then k:=k+1
else if z=0 then m:=m+1
else n:=n+1;
writeln('Количеcтво положительных чисел : ',k);
writeln('Количеcтво нулевых чисел : ',m);
writeln('Количеcтво отрицательных чисел : ',n);
end.

Answer 2

Program pr; var a,b,nul,otr,pol,c:integer; begin write('A='); readln(a); write('B='); readln(b); write('C='); readln(c); if a>0 then pol:=pol+1 else if a=0 then nul:=nul+1 else otr:=otr+1; if b>0 then pol:=pol+1 else if b=0 then nul:=nul+1 else otr:=otr+1; if c>0 then pol:=pol+1 else if c=0 then nul:=nul+1 else otr:=otr+1; writeln('Положительных: ',pol); writeln('Отрицательных: ',otr); writeln('Нулевых: ',nul); end.

Answer 3

Конечно, вот программа на языке Pascal, которая выполняет указанную задачу:

program CountNumbers;
var
  num1, num2, num3: integer;
  positiveCount, negativeCount, zeroCount: integer;
begin
  positiveCount := 0;
  negativeCount := 0;
  zeroCount := 0;

writeln('Введите первое число: ');
  readln(num1);
  
  writeln('Введите второе число: ');
  readln(num2);
  
  writeln('Введите третье число: ');
  readln(num3);

{ Подсчет положительных, отрицательных и нулевых чисел }
  if num1 > 0 then
    positiveCount := positiveCount + 1
  else if num1 < 0 then
    negativeCount := negativeCount + 1
  else
    zeroCount := zeroCount + 1;

if num2 > 0 then
    positiveCount := positiveCount + 1
  else if num2 < 0 then
    negativeCount := negativeCount + 1
  else
    zeroCount := zeroCount + 1;

if num3 > 0 then
    positiveCount := positiveCount + 1
  else if num3 < 0 then
    negativeCount := negativeCount + 1
  else
    zeroCount := zeroCount + 1;

{ Вывод результата }
  writeln('Количество положительных чисел: ', positiveCount);
  writeln('Количество отрицательных чисел: ', negativeCount);
  writeln('Количество нулевых чисел: ', zeroCount);
end.

Сначала программа запрашивает у пользователя три произвольных числа, затем она подсчитывает количество положительных, отрицательных и нулевых чисел с использованием условных операторов (if-else) и выводит результат на экран.