Составить программу в паскале, что бы из слова "Победа" попеременно убирались

Составить программу в паскале, что бы из слова "Победа" поочередно убирались буковкы, приблизительно так:
Победа
Обеда
Неудача
пища
да
а

Задать свой вопрос
2 ответа
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var s:='Победа';
  for var i:=1 to s.Length do Writeln(s[i:])
end.

Итог
Победа
обеда
неудача
пища
да
а
//Pascal
var S: string;
begin
S := 'Победа';
while Length(S) lt;gt; 0 do
begin
  writeln(S);
  delete(S,1,1);
end;
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт