Создать программу, которая будет убирать по одной букве с начала слова - Pascal ABC

Формулировка задачи:

Написать программу, которая слово "комната" напечатает в столбик, сначала убирая по одной букве с начала слова, затем убирая по одной последней букве, затем просклонять это слово по падежам. Пример: Комната омната мната ната ата та а

Код к задаче: «Создать программу, которая будет убирать по одной букве с начала слова - Pascal ABC»

textual
var s:string;
begin
s:='Комната';
while length(s)>0 do
 begin
  writeln(s);
  delete(s,1,1);
 end;
s:='Комната';
while length(s)>0 do
 begin
  writeln(s);
  delete(s,length(s),1);
 end;
s:='Комната';
writeln(s);
s[length(s)]:='ы';
writeln(s);
s[length(s)]:='е';
writeln(s);
s[length(s)]:='у';
writeln(s);
s:=copy(s,1,6)+'ой';
writeln(s);
s:='о '+copy(s,1,6)+'е';
writeln(s);
s[1]:='в';
writeln(s);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

10   голосов, оценка 3.700 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы