Const
a:array[1..7] of string=('Понедельник','Вторник','Среда','Четверг','Пятница','Суббота','Воскресенье');
var
b:integer;
begin
read(b);
writeln(a[b]);
<span>end.</span>
Если тебе программу нужно написать, то скажи на каком языке то
Я понимаю это как <span>обработку информации с целью приведения ее к определенному виду.</span>
<h2>Программка с акцентом )))</h2>
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a:=ReadlnString.ToWords;
a.Transform(t->RightStr(t,2)='ая' ? t[:t.Length-1]+'ой':t);
a.Println
end.
<h2>Пример</h2><h3>Ох, какая же большая пребольшая эта синяя птичка!</h3><h3>Ох, какой же большой пребольшой эта синяя птичка!</h3>