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

Question

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

Comments

Всм треугольником

---

Вводи строку s:= '12345' и дальше удаляй первый delete(s,1,1) символ и выводи строку в цикле по writeln(s)

Answer 1

Var
i:longint;
s:string;
begin
s:='12345';
for i:=1 to 5 do
 begin
 writeln(S);
 delete(S,1,1);
 end;
end.

Comments

byte*

---

Вот именно ЗАДАНА

---

Строка уже задана в условии задачи, не так ли?

---

какое число больше 10000000 ты вобще о чем

---

а если число больше 1000000, тогда что будешь делать?

---

Всм ?

---

поставь 1,,5 и все

---

А что изменится если я поставлю bytу?

---

А зачем тратить лишние байты?

---

Там мудрить нечего не надо с 10000000 числами

Answer 2

Var A:integer;
S:String;
begin
Readln(A);
Str(A,S);
While not(S='') do
begin
Writeln(S);
Delete(S,1,1);
end;
end.

Comments

если не хочешь тогда так:
var S:String;
begin
Readln(S);
While not(S='') do
begin
Delete(S,1,1);
Writeln(S);
end;
end.

---

программа выводит правильно, т.к. ввод за вывод не считают

---

Вот такого содержания
12345
2345
345
45
5

---

Что не так?

---

Читать не чего не надо

---

Выводит так как надо (Если не считать вводимое число)