Написать программы, по итогам которых на экран выводилось бы сдедующее
1)
1234
1234
1234
1234
2)
1
22
333
4444
55555
3)
666666
55555
4444
333
22
1
1)
1234
1234
1234
1234
2)
1
22
333
4444
55555
3)
666666
55555
4444
333
22
1
More Questions From This User See All
Answers & Comments
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.