написать программу которая в ответ на введенное с клавиатуры число выводит на экран сообщение о том положительное это число или отрицательное ( использовать оперытор if...then...else)
More Questions From This User See All
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
n:integer;
begin
write ('Number: ');readln(n);
if n>0 then writeln ('Число положительное') else
if n<0 then writeln ('Число отрицательное') else writeln ('Ноль');
readln;
end.
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.