Валерий
6 год назад
Помогите , пожалуйста:с
Мастям игральных карт присвоены порядковые номера: 1 — пики,2— трефы, 3 — бубны, 4 — червы. Достоинству карт, старших десятки, присвоены номера: 11 — валет, 12 — дама, 13 — король, 14 — туз. Даны два целых числа: N — достоинство (6 < N < 14) и M — масть карты (1 < M < 4). Вывести название соответствующей карты вида «шестерка бубен», «дама червей», «туз треф» и т. п. Нужно составить программу на Delphi7
ОТВЕТЫ
Боршеватинов
Jul 10, 2019
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
десятка треф
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
десятка треф
58
Смежные вопросы:
