Решить , используя оператор выбора (case): 1. ввести оценку (5, 4, 3, 2) и вывести соответствующее ей пояснение (отлично, хорошо, удовлетворительно, неудовлетворительно). 2. написать программу, которая после введенного с клавиатуры числа (в диапазоне от 1 до 99), обозначающего денежную единицу, дописывает слово «копейка» в правильной форме, например «5 копеек», «41 копейка» и т.д. заранее огромное !
Первая программа
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.
// 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.