Ответ:
Устройства ввода информации
Объяснение:
Хмм... Ну...
0 = треуг треуг треуг
1 = треуг треуг квадрат
2 = треуг квадрат треуг
3 = треуг квадрат квадрат
4 = квадрат треуг треуг
5 = квадрат треуг квадрат
6 = квадрат квадрат квадрат
7 = треуг треуг круг
8 = треуг круг треуг
9 = треуг круг круг
10 = круг треуг треуг
11 = круг треуг круг
12 = круг круг круг
13 = квадрат квадрат круг
14 = квадрат круг круг
15 = круг квадрат круг
Фух....
<em>// PascalABC.NET 3.2, сборка 1377 от 19.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:integer;
repeat
n:=ReadInteger;
if n>0 then begin
var d:=false; // нужны цифры
var a:=false; // нужны буквы
repeat
var r:=n mod 16;
if r in [0..9] then d:=true
else a:=true;
n:=n div 16
until (d and a) or (n=0);
if a and d then Writeln(3)
else
if a then Writeln(1)
else Writeln(2);
n:=-1 // чтобы из цикла не выйти
end
until n=0
end.
<u>Пример</u>
13
1
15
1
9
2
27
3
0