Помогите написать программу на Pascal) Нужно, что бы программа выводила цикл. Вот такого содержания

12345

2345

345

45

5

Треугольником.

Question

Федула

11 февраля, 22:09

+2

Ответы (2)

Знаете ответ?

Деена · Answer 1

Var A:integer;

S:String;

begin

Readln (A) ;

Str (A, S) ;

While not (S='') do

begin

Writeln (S) ;

Delete (S, 1,1) ;

end;

end.

Веста · Answer 2

Var

i:longint;

s:string;

begin

s:='12345';

for i:=1 to 5 do

begin

writeln (S) ;

delete (S, 1,1) ;

end;

end.

Помогите написать программу на Pascal) Нужно, что бы программа выводила цикл. Вот такого содержания123452345345455Треугольником.