===== PascalABC.NET =====
begin
ReadlnString
.ToWords
.Select(w -> w.Inverse)
.JoinIntoString(' ')
.Print
end.
Из каждой цифры можно составить по шесть трехзначных чисел. И того равняется 24.
Это зависит от того, что ты напишешь в теле функции. В некоторых ЯП, типа ублюдочного Пасцала, она является встроенной и означает взятие дробной части числа.
ПаскальАВС.нет
var
n:integer;
s:string;
begin
readln(n);
s:=StringOfChar('*',n);
writeln(s);
<span>end.</span>