Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Записать на языке Паскаля:
алг Задача-6
вещ Х
нач
ввод Х
если Х<0
то вывод "отрицательное число"
иначе вывод "положительное число"
кв
кон

Ответ оставил Гость

Var x:real;
begin;
readln(x);
if x<0 then write(отрицательное число) else write(положительное число);
end.