Паскаль Условие задачи : по заданным значениям переменной k (уравнение прикреплены в файле), которая определяет день недели, напечатайте свое расписание уроков (под себя программу переделаю, нужен сам алгоритм как это делать)
Вверх и вниз по разным тропинкам: по каждой тропинке можно подняться и спуститься : 3*3 = 9 маршрутов Вверх и вниз по разным тропинкам: тропинок 3, маршрутов по ним 2, всего 3*2 =6 маршрутов Два маршрута: по первой поднялись, спустились по второй по первой поднялись, спустились по третьей Ещё два: по второй поднялись, спустились по первой по второй поднялись, спустились по третьей Ещё два: по третьей поднялись, спустились по первой по третьей поднялись, спустились по второй
var s,s1:string;
i,j,count:integer;
begin
read(s);
for i:=length(s) downto 2 do
for j:=2 to i do
if s[j]<s[j-1] then begin
swap(s[j],s[j-1]);
s1:=s;
end;
//сортируем строку в алфавитном порядке чтобы потом было легче
//считать количество встреч одного и того же символа
count:=1;
write(s1[1],': ');
//первый символ в любом случае встречается один раз
for i:=2 to length(s1) do
if s1[i]=s1[i-1] then inc(count) else begin
writeln(count);
write(s1[i],': ');
count:=1
end;
//считаем количество совпадений для каждого символа
writeln(count);
end.