Напишите программу вывода на экран фразы “Число положительное”, если введенное число положительное, и “Число отрицательное”, если введенное число отрицательное.
Answers & Comments
estengseant
Var x: Integer; begin writeln('Введите число'); readln(x); if x<0 then writeln('Число ',x,' - отрицательное') else if x=0 then writeln('Число ',x,' - нейтральное') else writeln('Число ',x,' - положительное'); end.
Answers & Comments
begin
writeln('Введите число');
readln(x);
if x<0 then
writeln('Число ',x,' - отрицательное')
else
if x=0 then
writeln('Число ',x,' - нейтральное')
else
writeln('Число ',x,' - положительное');
end.