Question

Игральным картам условно присвоены следующие порядковые номера в зависимости от их достоинства: «валету» — 11, «даме» — 12, «королю» — 13, «тузу» — 14. Порядковые номера остальных карт соответствуют их названиям («шестерка», «девятка» и т. п.). По заданному номеру карты k (6 ≤ k ≤ 14) определить достоинство соответствующей карты

Answer 1

Program karta;

var k: integer;

var n: string;

Begin

n:='Эта карта ';

writeln('Введите номер карты');

readln(k);

if(k<6) or (k>14) then  begin

while (k<6) or (k>14) do begin

writeln('Введите номер карты от 6 до 14');

readln(k);

end;

end;

case k of

6:writeln(n,'Шестёрка');

7:writeln(n,'Семёрка');

8:writeln(n,'Восьмёрка');

9:writeln(n,'Девятка');

10:writeln(n,'Десятка');

11:writeln(n,'Валет');

12:writeln(n,'Дама');

13:writeln(n,'Король');

14:writeln(n,'Туз');

end

end.

Answer 2

Для определения достоинства карты по заданному номеру k (6 ≤ k ≤ 14) можно использовать следующие правила:

1. Если k находится в диапазоне от 6 до 10 включительно, то достоинство карты соответствует её названию. Например, если k = 6, то достоинство карты - "шестерка", если k = 7, то достоинство карты - "семерка" и так далее.

2. Если k находится в диапазоне от 11 до 14 включительно, то достоинство карты определяется следующим образом:

   • Если k = 11, то достоинство карты - "валет".
   • Если k = 12, то достоинство карты - "дама".
   • Если k = 13, то достоинство карты - "король".
   • Если k = 14, то достоинство карты - "туз".

Например, если задан номер карты k = 11, то достоинство соответствующей карты будет "валет". Если задан номер карты k = 7, то достоинство соответствующей карты будет "семерка".