дано число. если это число положительное,то вывести что оно положительное.в противном случае вывести,что оно отрицательное

Ответы

Ответ дал: Sky09
0
var a:integer;
begin
  readln(a);
  if a>0 then writeln('Число положительное')
    else writeln('Число отрицательное');
end.
Ответ дал: Аня549
0
спасииииибо большое
Ответ дал: eclipse68
0
var a: integer;
begin
readln(a);
if a>0 then
writeln('число положительное');
if a<0 then
writeln('число отрицательное);
end.




Что делать в случае, если число равно 0?
Вас заинтересует