Задание 2: написать программу выставление оценок по 100 шкале. Меньше 27 баллов "2",...

Question

Задание 2: написать программу выставление оценок по 100 шкале. Меньше 27 баллов "2", больше 27 и меньше 64 "3", больше 65 и меньше 74 "4", выше 75 "5".

Answer 1

//PascalABC.NET Версия 3.0 Сборка 1150
var x:integer;
begin
  writeln('Введи количество баллов:');
  readln(x);
  case x of
     0..27: writeln('Ваша оценка: 2');
    28..64: writeln('Ваша оценка: 3');
    65..75: writeln('Ваша оценка: 4');
    76..100: writeln('Ваша оценка: 5');
  end;
end.