Вопрос по информатике:
Напечатайте все под слова данного слова S, заканчивающиеся его последней буквой, по убыванию их длин
Пожаловаться
- 23.09.2018 22:46
- Информатика
- remove_red_eye 1490
- thumb_up 6
Ответы и объяснения 1
Не знаю точно, что понимать под термином "подслово", сделал так, как я его понял.
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.
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.
Пожаловаться
- 24.09.2018 20:47
- thumb_up 6
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы