Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Помогите прошу Составить программу,позволяющую получить словесное наименования оценок 1-10 с помощью оператора варианта case

Ответ оставил Гость

Var a:integer;
begin
writeln(Введите число);
read(a);
case a of
1: writeln(Единица);
2: writeln(Два);
3: writeln(Три);
4: writeln(Четыре);
5: writeln(Пять);
6: writeln(Шесть);
7: writeln(Семь);
8: writeln(Восемь);
9: writeln(Девять);
10: writeln(Десять);
end;
end.