С помощью операторов цикла вывести на экран

55555

4444

333

22

1

Question

Игнатий

26 марта, 22:15

+3

Ответы (1)

Знаете ответ на вопрос?

Филонилла · Answer 1

Var i, j:integer;

begin

for i:=5 downto 1 do

begin

for j:=1 to i do write (i) ;

writeln;

end;

end.

Результат:

55555

4444

333

22

1

С помощью операторов цикла вывести на экран555554444333221