Question

Решить задачи, используя оператор выбора (case):
1. Ввести оценку (5, 4, 3, 2) и вывести соответствующее ей пояснение (отлично, хорошо, удовлетворительно, неудовлетворительно).
2. Написать программу, которая после введенного с клавиатуры числа (в диапазоне от 1 до 99), обозначающего денежную единицу, дописывает слово «копейка» в правильной форме, например «5 копеек», «41 копейка» и т.д.
Заранее огромное спасибо!!!!!!!​

Answer 1

Первая программа

var x:integer;

begin

 readln(x);

 case x of

   2: writeln('Неудовлетворительно');

   3: writeln('Удовлетворительно');

   4: writeln('Хорошо');

   5: writeln('Отлично');

 end;

end.

Вторая программа

var x:integer;

begin

 readln(x);

 if not x in [1..99] then

   writeln('[ERROR]');

 case x of

 10..20,30,40:write(x,' копеек');

 else

  case x mod 10 of

  1:write(x,' копейка');

  2..4:write(x,' копейки');

  else write(x,' копеек');

  end;

 end;

end.

Answer 2

// 2.

function RuEnding(a: integer): string;

begin

 Result := 'ек';

 if not ((a mod 100) in [11..14]) then

   case a mod 10 of

     1: Result := 'йка';

     2..4: Result := 'йки';

   end

end;

begin

 var a := ReadInteger();

   Writeln(a, ' копе' + RuEnding(a))

end.