Question

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

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
лесенка
       лесенка
              лесенка
                     лесенка