В Pascal ABC Вывести ** экран последо вательность символов: 122333444455555..

Question

В Pascal ABC
Вывести на экран последо вательность символов: 122333444455555..

Comments

экономным способом?

---

или для новичков

---

чеел

Answer 1

Var
I, p: byte;
begin
for i:=1 to 5 do
begin
for p:=1 to I do
begin
write(i);
end;
end;
end.