Tasebiz 27 ноября 2019 в 05:25
Ввести число X. Если X > 0, то вывести на печать сообщение "число не отрицательное". Для отрицательного числа ввод числа повторить. (ПАСКАЛЬ).С ОБЪЯСНЕНИЕМ
Ввести число X. Если X > 0, то вывести на печать сообщение "число не отрицательное". Для отрицательного числа ввод числа повторить. (ПАСКАЛЬ).С ОБЪЯСНЕНИЕМ
Var x:integer;beginreadln (x);if (xgt;0) then writeln (число не отрицательное);end.
Компьютеры и вычисления
174
0
Для комментирования необходимо зарегистрироваться на сайте