Написать программу которая в ответ на введенное с клавиатуры число выводит на экран сообщение о том положительное это число или отрицательное ( использовать оперытор if...then...else)

Question

Написать программу которая в ответ на введенное с клавиатуры число выводит на экран сообщение о том положительное это число или отрицательное ( использовать оперытор if...then...else)

Гость

Ответ(ы) на вопрос:

Гость

Program Fom01; USES CRT; Var x:Integer; begin Writeln('введите число x'); Readln(x); If x>0 then Writeln('положительное'); Else If x<0 then Writeln('отрицательное'); readln; end.

Accepted Answer

var n:integer; begin write ('Number: ');readln(n); if n>0 then writeln ('Число положительное') else if n<0 then writeln ('Число отрицательное') else writeln ('Ноль'); readln; end.