Регистрация Вход
Информатика 5 - 9 классы Kana
Решено

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

150
ОТВЕТЫ
Не знаю точно, что понимать под термином "подслово", сделал так, как я его понял.

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.
51
Отв. дан
Для написания вопросов и ответов необходимо зарегистрироваться на сайте