ввести с клавиатуры число. вывести на экран знак числа (+1 если больше нуля, -1 если меньше нуля, 0 если равно нулю)
Answers & Comments
guaba
Program chisla; uses crt; var a:integer; begin Write('Введите число - '); readln(a); If a>0 then write('+1') else begin If a<0 then write('-1') else begin If a=0 then write('0') else begin end; end; end; end.
Answers & Comments
uses crt;
var a:integer;
begin
Write('Введите число - ');
readln(a);
If a>0 then
write('+1')
else begin
If a<0 then
write('-1')
else begin
If a=0 then
write('0')
else begin
end;
end;
end;
end.