Помогите , пожалуйста:с Мастям игральных карт присвоены порядковые номера: 1 — пики,2— трефы, 3 — бубны, 4 — червы. Достоинству карт, старших десятки, присвоены номера: 11 — валет, 12 — дама, 13 — король, 14 — туз. Даны два це...
Помогите , пожалуйста:с
Мастям игральных карт присвоены порядковые номера: 1 — пики,2— трефы, 3 — бубны, 4 — червы. Достоинству карт, старших десятки, присвоены номера: 11 — валет, 12 — дама, 13 — король, 14 — туз. Даны два целых числа: N — достоинство (6 < N < 14) и M — масть карты (1 < M < 4). Вывести название соответствующей карты вида «шестерка бубен», «дама червей», «туз треф» и т. п. Нужно составить программу на Delphi7
Гость
Ответ(ы) на вопрос:
Гостьvarn,m
integer;
begin
write('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 = 10
M = 2
десятка треф
Не нашли ответ?
Похожие вопросы