Напечатайте все под слова данного слова S, заканчивающиеся его последней буквой, по убыванию их длин

Ответы (1)

Башкурт 21.11.2024 5
Не знаю точно, что понимать под термином "подслово", сделал так, как я его понял.

var
i,k: integer;
s:string;
begin
readln(s);
k:=length(s);
for i:=2 to k do
writeln(copy(s,i,k-i+1));
end.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

ПРЕДМЕТЫ