Составьте программу,по которой вводится произвольное слово.Выбрать число повторов.Вывести...

Question

Составьте программу,по которой вводится произвольное слово.Выбрать число повторов.Вывести число на экран лесенкой(Со сдвигом вправо).Без использования вложенного цикла.

Comments

Что-то я не понимаю. Для чего вводить слово, если выводить требуется число? И что значит вывести число лесенкой? По одной цифре в строке? Очень корявая формулировка задачи.

---

Извиняюсь , нужно вывести не число , а слово на экран

Answer 1

1)
var s:string; i:integer;
begin
write('Слово: ');
readln(s);
for i:=1 to length(s) do
 writeln(' ':i,s[i]);
end.

Пример:
Слово: лесенка
 л
  е
   с
    е
     н
      к
       а

2)
var s:string; n,i:integer;
begin
write('Слово: ');
readln(s);
write('n = ');
readln(n);
for i:=0 to n-1 do
 writeln('':i*length(s),s);
end.

Пример:
Слово: лесенка
n = 4
лесенка
       лесенка
              лесенка
                     лесенка

Comments

Спасибо большое

---

Пожалуйста.