Написать программы, по итогам которых ** экран выводилось бы...

Question

Написать программы, по итогам которых на экран выводилось бы сдедующее1)12341234123412342)1223334444555553)666666555554444333221

Answer 1

1)

Var

i,k,n:integer;

Begin

For i:=1 to 4

do

   WriteLn(1234);

End.

2)

Var

i,k,n:integer;

Begin

Readln(n);

For i:=n to 5

do

 Begin

  For k:=1 to i do

   Write(i);

  Writeln;

 End;

Readln;

End.

3)

Var

i,k,n:integer;

 Begin

Readln(n);

For i:=n downto 1 do

 Begin

  For k:=1 to i do

   Write(i);

  Writeln;

 End;

Readln;

End.

Comments

спасибо огромное