Оператор множественного выбора: оценка за тест из 15 вопросов - Pascal ABC

Формулировка задачи:

Составить программу, которая определяет оценку за тест из 15 вопросов, если вводится количество верных ответов студента. Критерии оценок: 90%-100% - оценка «отлично», 71%-89% - оценка «хорошо», 50%-70% - оценка «удовлетворительно», ниже 50% - оценка «неудовлетворительно».

Решение задачи: «Оператор множественного выбора: оценка за тест из 15 вопросов»

Листинг программы

const n=15;
var k,v:integer;
begin
repeat
write('Введите количество верных ответов от 0 до ',n,' k=');
readln(k);
until k in [0..n];
v:=round(k/n*100);
case v of
90..100:write('отлично');
71..89:write('хорошо');
50..70:write('удовлетворительно');
else write('неудовлетворительно');
end;
end.

Объяснение кода листинга программы

Переменная n инициализируется значением 15.
Затем объявляются две переменные k и v типа integer.
В цикле repeat-until выполняется следующая последовательность действий:
- Выводится сообщение 'Введите количество верных ответов от 0 до ', n, ' k='.
- Считывается значение переменной k с помощью функции readln.
- Переменная k приводится к типу integer.
- Переменная v инициализируется округленным значением k, деленного на n, умноженным на 100.
Далее выполняется case-структура, которая проверяет значение переменной v:
- Если v находится в диапазоне от 90 до 100, выводится сообщение 'отлично'.
- Если v находится в диапазоне от 71 до 89, выводится сообщение 'хорошо'.
- Если v находится в диапазоне от 50 до 70, выводится сообщение 'удовлетворительно'.
- В противном случае выводится сообщение 'неудовлетворительно'.
Цикл repeat-until продолжается до тех пор, пока значение переменной k не будет находиться в допустимом диапазоне (0..n).