Предмет: Информатика,
автор: Mister2265
Написать программы, по итогам которых на экран выводилось бы сдедующее
1)
1234
1234
1234
1234
2)
1
22
333
4444
55555
3)
666666
55555
4444
333
22
1
Ответы
Автор ответа:
3
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.
Mister2265:
спасибо огромное
Похожие вопросы
Предмет: Геометрия,
автор: sonaegorova19
Предмет: Химия,
автор: elzamood
Предмет: Математика,
автор: koooooe
Предмет: Математика,
автор: игорь503
Предмет: Математика,
автор: класная2