Question

Наберите программу, которая определяет, является ли введённое число положительным. выполнить программу при x=5,x=-7, x=0

Answer 1

Basic

input A
if A>0 then B="положительное" else B="не положительное"
print A; B

Answer 2

Pascal

program checker2;
var a:integer;
begin
writeln('Введите число');
readln(a);
 if a>0 then begin
 writeln('Число "',a,'" положительное');
 end;
 if a<0 then begin
 writeln('Число "',a,'" отрицательное');
 end;
 if a=0 then begin
 writeln('Число "',a,'" — нуль.');
 end;
readln;
end.