Предмет: Информатика,
автор: zhuraalya
Помогите прошу Составить программу,позволяющую получить словесное наименования оценок 1-10 с помощью оператора варианта case
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Українська мова,
автор: kalinina21051980
Предмет: История,
автор: sashabond0071
Предмет: Физика,
автор: goldini228
Предмет: Математика,
автор: флипер
Предмет: Химия,
автор: CoolDmitry