Регистрация
raha12003
30.10.2020 14:19
Информатика
Есть ответ 👍

Ота жасау ушин кандай робот тури к.?​

174
242
Посмотреть ответы 1

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

Lybava13322131
Lybava13322131
4,6(61 оценок)
//название var n: integer; begin repeat n: =readinteger('введите порядковый номер: '); until n in [1..52]; case (n mod 13) of  1: write ('двойка'); 2: write ('тройка'); 3: write ('четверка'); 4: write ('пятерка'); 5: write ('шестерка'); 6: write ('семерка'); 7: write ('восьмерка'); 8: write ('девятка'); 9: write ('десятка'); 10: write ('валет'); 11: write (''); 12: write ('король'); 0: write ('туз'); end; if n mod 13< > 0 then n: =(n div 13) + 1 else n: =n div 13; case n of 1: write (' бубен'); 2: write (' черви'); 3: write (' трефы'); 4: write (' пики'); end; end.

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