Помогите с задачкой

07.02.2012, 16:45. **Показов** 1132. **Ответов** 1

Author24 — интернет-сервис помощи студентам

выстроить слово лесенкой убирая в каждой новой строке по 1 символу

вот так

автобус
автобу
автоб
авто
авт
ав
а

@Puporev · 07.02.2012, 16:54

Pascal

uses crt;
var s:string;
begin
clrscr;
writeln('Введите слово');
readln(s);
clrscr;
while length(s)>0 do
 begin
  writeln(s);
  delete(s,length(s),1);
 end;
readln
end.

soul_keeper
		1
	Помогите с задачкой 07.02.2012, 16:45. Показов 1132. Ответов 1 Метки нет (Все метки) выстроить слово лесенкой убирая в каждой новой строке по 1 символу вот так автобус автобу автоб авто авт ав а

	07.02.2012, 16:54

Помогите с задачкой

Решение