<u>// PascalABC.NET 3.2, сборка 1447 от 22.05.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
procedure Print60(c:char);
begin
Write(60*(c+NewLine))
end;
// Тестовый вызов
begin
Print60(ReadlnChar)
end.
Мак, мелисса.
Василек, вереск.
Дуб, дионея
Если брать каждую цифру не более 1 раза (в самом 3-х значном числе), тогда:
1) чисел, начинающихся с 1 будет 6; с 3-тоже 6, с 5 - 6, с 7 - 6
2) 6*4=24. 24 числа
Eсли задана точность то зачем задавать n? И наоборот.