1. ДАННЫЕ ЭТОЙ СИСТЕМЫ ХРАНЯТСЯ НА СЕРВЕРАХ... 2. С НЕЕ МОЖНО ПУТЕШЕСТВОВАТЬ ПО САЙТАМ... 3. ЕЩЕ ОДНО - id2118750320230129 от Dfh32 29.01.2023 08:24

Question

Информатика: 1. ДАННЫЕ ЭТОЙ СИСТЕМЫ ХРАНЯТСЯ НА СЕРВЕРАХ... 2. С НЕЕ МОЖНО ПУТЕШЕСТВОВАТЬ ПО САЙТАМ... 3. ЕЩЕ ОДНО НАЗВАНИЕ КОМПЬЮТЕРНОЙ ПАПКИ... 4. РЕСУРС В ИНТЕРНЕТЕ, КОТОРЫЙ СОСТОИТ ИЗ ВЕБ-СТРАНИЦ... 5. ПРОГРАММА ДЛЯ ПРОСМОТРА ВЕБ-СТРАНИЦ...

Dfh32 · Accepted Answer

//название
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.

MOGZ ответил