Question

Написать программы, по итогам которых на экран выводилось бы сдедующее
1)
1234
1234
1234
1234
2)
1
22
333
4444
55555
3)
666666
55555
4444
333
22
1

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.

Answer 2

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