/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/!Tutorial/06_ForWhileRepeat/repeat1.pas
11 строк
369 B
Mikhalkovich Stanislav
Примеры правлю на современные
14 окт 2025, 21:21
14 окт 2025, 21:21
e840fcb
Код
Авторство
О чём код?
// Цикл repeat. Контроль ввода begin var mark: integer; repeat Println('Введите оценку (2..5):'); mark := ReadInteger; if (mark < 2) or (mark > 5) then Println('Оценка неверная. Повторите ввод'); until (mark >= 2) and (mark <= 5); Println('Вы ввели оценку', mark); end.