"Программы без ошибок можно написать
двумя способами, но работает — третий"
Алан Джей Перлис

Решение задач по теме "Оператор выбора Case в Pascal"

Решение задачи №2

program two;
var k:integer;
begin
     writeln('Введите число в диапазоне 1 - 5');
     readln(k);
     case k of
          1: writeln('Плохо');
          2: writeln('Неудовлетворительно');
          3: writeln('удовлетворительно');
          4: writeln('Хорошо');
          5: writeln('Отлично');
          else writeln('Ошибка')
     end;
end.

 

 

Назад