Question

Составить программу на языке Паскаль. Вводится вещественное число (причем ≠0), определить является это число положительным или отрицательным.​

Answer 1

Ответ:

program w7w7;

var a:real;

begin

readln (a);

if a<0 then writeln ('otritsatelnoe chislo');

if a>0 then writeln ('pologitelnoe chislo');

end.

Answer 2

Конечно, вот пример программы на языке Паскаль, который определяет, является ли введенное вещественное число положительным или отрицательным:

pascalCopy code
program PositiveNegativeCheck;
var
  number: real;

begin
  writeln('Введите вещественное число: ');
  readln(number);
  
  if number > 0 then
    writeln('Введенное число положительное')
  else if number < 0 then
    writeln('Введенное число отрицательное')
  else
    writeln('Введенное число равно нулю');
end.

Программа сначала запрашивает ввод вещественного числа от пользователя, затем с помощью условных операторов if и else if определяет, является ли число положительным или отрицательным, или равным нулю.