Question

Составить алгоритм и написать программу к задаче: с клавиатуры вводится число. Определить является ли оно отрицательным.

Answer 1

Ответ:

Var

A: integer;

Begin

Write('Введите любое число:'); Readln(A);

If A<0 then Write('Отрицательное число') else Write('Положительное');

Readln;

End.

Объяснение: