Var n, i, k:integer;
begin;
readln(n);
for i:=100 to 999 do
if (i mod 10) + (i div 100) + (i div 10 mod 10) = n then begin;
writeln(i);
k:=k+1;
end;
writeln(k);
end.
24 <span>различными способами могут попытаться сесть в ряд эти музыканты.
4! = 1*2*3*4 = 24
Может на цифрах понятнее:
1234 2134 3124 4123
1243 2143 3142 4132
1324 2314 3214 4212
1342 2341 3241 4231
1423 2413 3412 4312
1432 2431 3421 4321
(ПМ - 1 ; О - 2 ; К - 3 ; КМ - 4)</span>
Var
text : string;
i : integer;
begin
write('Введите текст: ');
readln(text);
write('Результат: ');
for i := length(text) downto 1 do
write(text[i]);
<span>end. </span>
Можно, т. к. в ней есть каталоги и подкаталоги. Корень - это корневой каталог, ветви это стрелочки, а листья - подкаталоги