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

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

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

program one;
var x:integer;
begin
     writeln('Введите число в диапазоне 1 - 7');
     readln(x);
     case x of
          1: writeln('Понедельник');
          2: writeln('Вторник');
          3: writeln('Среда');
          4: writeln('Четверг');
          5: writeln('Пятница');
          6: writeln('Суббота');
          7: writeln('Воскресенье');
     end;
end.

 

 

Назад