Регистрация
Войти
Стать экспертом Правила
Информатика

Паскаль. Пожалуйста посчитайте с решением. много раз пытались решить, но в ответе даёт не то, что нужно. Заранее спасибоНужно написать любое слово в столбика)Например: словословслослсб)Например:сслслословслово

ОТВЕТЫ



begin
  var s:=ReadlnString('Вводите:');
  for var i:=1 to s.Length do s[:i+1].Println;
  Writeln;
  for var i:=s.Length downto 1 do s[:i+1].Println;
end.


Вводите: слово
с
сл
сло
слов
слово

слово
слов
сло
сл
с
674
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам