Составить алгоритм и написать программу к задаче: с клавиатуры вводится число. Определить является ли оно отрицательным.
Ответ:
Var
A: integer;
Begin
Write('Введите любое число:'); Readln(A);
If A<0 then Write('Отрицательное число') else Write('Положительное');</p>
Readln;
End.
Объяснение:
Write("Введите любое число:"); Readln(A); lf`n jib,re
даёт ошибку*
Именно какую?
Program1.pas(8) : Неожиданный символ '"'
Я исправил
Я кавычки не те поставил в первый раз