Ввести число X. Если X больше 0, то вывести на печать сообщение "число не отрицательное". Для отрицательного числа ввод числа повторить. (ПАСКАЛЬ).С ОБЪЯСНЕНИЕМ

Ввести число X. Если X > 0, то вывести на печать сообщение "число не отрицательное". Для отрицательного числа ввод числа повторить. (ПАСКАЛЬ).С ОБЪЯСНЕНИЕМ
Гость
Ответ(ы) на вопрос:
Гость
var x:integer;beginreadln (x);if (x>0) then writeln ('число не отрицательное');end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы