• Помогите , пожалуйста:с
    Мастям игральных карт присвоены порядковые номера: 1 — пики,2— трефы, 3 — бубны, 4 — червы. Достоинству карт, старших десятки, присвоены номера: 11 — валет, 12 — дама, 13 — король, 14 — туз. Даны два целых числа: N — достоинство (6 < N < 14) и M — масть карты (1 < M < 4). Вывести название соответствующей карты вида «шестерка бубен», «дама червей», «туз треф» и т. п. Нужно составить программу на Delphi7

Ответы 1

  • varn,minteger;beginwrite('N = '); readln(n);write('M = '); readln(m);case n of write('шестерка '); write('семерка '); write('восьмерка '); write('девятка '); write('десятка '); write('валет '); write('дама '); write('король '); write('туз '); else writeln('ошибка ввода '); end;  case  of write('пик'); write('треф'); write('бубен'); write('червей');end.Наример:N = 10M = 2десятка треф
    • Автор:

      joel784
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years