Case15. Мастям игральных карт присвоены порядковые номера: 1 — пики, 2 — трефы, 3 — бубны, 4 — червы. Достоинству карт, старших десятки, присвоены номера: 11 — валет, 12 — дама, 13 — король, 14 — туз. Даны два целых числа: $$N$$ — достоинство ($$6 \leq N\leq 14$$) и $$M$$ — масть карты ($$1\leq M\leq 4$$). Вывести название соответствующей карты вида «шестерка бубен», «дама червей», «туз треф» и т. п.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 |
program Case15; var N,M:Integer; begin Write('Введите достоинство карты: '); Readln(N); Write('Введите масть карты: '); Readln(M); case N of 6:write('шестёрка '); 7:write('семёрка '); 8:write('восьмёрка '); 9:write('девятка '); 10:write('десятка '); 11:write('валет '); 12:write('дама '); 13:write('король '); 14:write('туз '); end; case M of 1:write('пик'); 2:write('треф'); 3:write('бубен'); 4:write('червей'); end; end. |
Другие задачи из раздела Case можно посмотреть здесь.
Комментарии: