katy1231231233

23.04.2023 02:49

Информатика

Есть ответ 👍

Где ошибка? (PascalABC)

Во время компиляции сообщает о том, что введены лишние результирующие данные и читает только 1ую часть (номера), а масти не читает.

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

begin

Task('Case15');
var (n, m) := readInteger2;
case n of
6: print ('шестерка');
7: print ('семерка');
8: print ('восьмерка');
9: print ('девятка');
10: print ('десятка');
11: print ('валет');
12: print ('дама');
13: print ('король');
14: print ('туз')

end;
case m of
1: print ('пик');
2: print ('треф');
3: print ('бубен');
4: print ('червей');
end;
end.

284

344

Посмотреть ответы 2

Ответы на вопрос:

1011021031041051

Информатика

4,4(51 оценок)

var N, M:Integer;

begin

Write('Введите достоинство карты: ');

Readln(N);

Write('Введите масть карты: ');

Readln(M);

case N of

6:write('шестёрка ');

7:write('семёрка ');

8:write('восьмёрка ');

9:write('девятка ');

10:write('десятка ');

11:write('валет ');

12:write('дама ');

13:write('король ');

14:write('туз ');

end;

case M of

1:write('пик');

2:write('треф');

3:write('бубен');

4:write('червей');

end;

end.

maximkanariks

Информатика

4,5(62 оценок)

решение на free pascal ide 2.6.0

var s: array[1..15] of integer; k,max,arf: integer; begin max: =0; for k: =1 to 15 doread(s[k]); for k: =1 to 5 doif s[k]> max then max: =s[k]; for k: =7 to 15 doarf: =arf+k; arf: =round(arf/9); for k: =1 to 15 doif s[k]> arf then s[k]: =max; for k: =1 to 15 dowriteln('s[',k,']= ',s[k]); writeln('srednee arifmeticheskoe = ',arf); writeln('max = ',max); readln; readln; end.c

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.