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

55555

4444

333

22

1

Question

Игнатий

30 марта, 09:22

+1

Ответы (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