Var A, I, O: Integer;
Begin
ReadLn(A);
For I:=100 to 999 do Begin
If I div 100 = A Then
O:=O+1;
if (I div 10)-(I div 100) = A then
O:=O+1;
If I - ((I div 10)*10) = A Then
O:=O+1;
End;
WriteLn(O);
End.
Слух, летучим мыши слышат ооочень хорошо
Пятеричная система счисления, ибо 4-ка есть.
Радиограмма расшифровывается однозначно: УЖАТАХТ