Ограничение числа integer до 1000 - Pascal ABC
Формулировка задачи:
Здравствуйте, программу писать не надо, просто подскажите, как сделать так, чтобы в var был integer до 1000.
Так не работает.
Решение задачи: «Ограничение числа integer до 1000»
textual
Листинг программы
repeat
write('Введите целое число из диапазона 1..1000 c=');
readln(c);
until(c>0)and(c<=1000);
Объяснение кода листинга программы
- В строке repeat начинается цикл repeat-until.
- В строке write выводится сообщение 'Введите целое число из диапазона 1..1000 c=', которое предназначено для пользователя.
- В строке readln считывается значение переменной c, которое предназначено для пользователя.
- В строке until проверяется условие: пока значение переменной c больше нуля и меньше или равно 1000, цикл продолжается.
- Если условие истинно, то значение переменной c присваивается переменной c.
- Если условие ложно, то цикл повторяется.
- Цикл repeat-until завершается, когда значение переменной c становится меньше нуля или больше 1000.