Дано число А. Определить, положительное, отрицательное оно или равно 0.
Дано число А. Определить, положительное, отрицательное оно или равно 0.
Гость
Ответ(ы) на вопрос:
ГостьVar x: integer;
begin
write ('Введите число: '); read(x);
if (x>0) then writeln ('Ваше число положительное!');
if (x<0) then writeln ('Ваше число отрицательное!');
if (x=0) then writeln ('Ваше число равно нулю!');
end.
Не нашли ответ?
Похожие вопросы