По заданному номеру карты определить достоинство карты

@igorrapfan · Регистрация: 27.06.2014

Author24 — интернет-сервис помощи студентам

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

@Пытливый · 27.06.2014, 20:54

Pascal

Const
 Cards: Array[2..14] of String = ('2','3','4','5','6','7','8','9','10','Валет','Дама','Король','Туз');
var
 k: Integer;
begin
 repeat
  Write('Введите номер карты от 2 до 14: '); ReadLn(k);
 until k in [2..14];
 WriteLn('Достоинство карты: ',Cards[k]);
 ReadLn;
end.

@igorrapfan 0 / 0 / 0 Регистрация: 27.06.2014 Сообщений: 8
		1
	По заданному номеру карты определить достоинство карты 27.06.2014, 19:02. Показов 2214. Ответов 1 Метки нет (Все метки) Игральным картам условно присвоены следующие порядковые номера в зависимости от их достоинства: валету - 11 , даме - 12 , королю - 13 , тузу - 14 . Порядковые номера остальных карт соответствуют их названию ( шестерка , семерка и тд ) по заданному номеру карты определить достоинство карты 6<k<14 определить достоинство карты 0

	27.06.2014, 20:54

По заданному номеру карты определить достоинство карты

Решение