Напечатайте все под слова данного слова 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.
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
Отв. дан
Kazabimka
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Thojurus
2019-04-22 07:16:27
Moghma
По данному натуральному значению n вычислите 1+1/3+1/5+1/7+...+1/2n+1 на вход ...
2019-04-22 07:13:29
Абакум
По данному натуральному значению n вычислите 1+1/3+1/5+1/7+...+1/2n+1 на вход ...
2019-04-22 07:12:42
Ishngda