Вводится число, если оно больше "0", выдать сообщение- число положительное, если оно меньше "0", то число отрицательное. По этому составить программу и блок схему. Пожалуйста. Все последние пнк отдаю
More Questions From This User See All
Answers & Comments
var a: integer;
begin clrscr;
Writeln('введите число");
Readln(a);
if a>0 then Writeln('a-положительное');
if a<0 then Writeln('a-отрицательное');
if a=0 then Writeln('a=0');
Readln;
End.
Только я вот не понял, зачем фотка прикреплена к вопросу?..