Наберите программу, которая определяет, является ли введённое число положительным. выполнить программу при x=5,x=-7, x=0
Наберите программу, которая определяет, является ли введённое число положительным. выполнить программу при x=5,x=-7, x=0
Гость
Ответ(ы) на вопрос:
ГостьBasic
input A
if A>0 then B="положительное" else B="не положительное"
print A; B
Гость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.
Не нашли ответ?
Похожие вопросы