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

Ответ:
Var
  s:string;
  i:integer;
begin
  Write('Введите слово: '); Readln(s);
  for i:=Length(s)-1 downto 1 do Writeln(Copy(s,1,i))
end.

Тестовое решение:
Введите слово: Электрификация
Электрификаци
Электрификац
Электрифика
Электрифик
Электрифи
Электриф
Электри
Электр
Элект
Элек
Эле
Эл
Э

Добавить комментарий

You must have JavaScript enabled to use this form.