Ввести число, вывести числа по схеме:

5 5 5 5 5

4 4 4 4

3 3 3

2 2

1

Программа в паскале

Question

Всеслава

3 февраля, 06:02

+3

Ответы (1)

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

Нинуня · Answer 1

Var i, x, j: integer;

begin

readln (x) ;

for i : = x downto 1 do

begin

for j : = 1 to i do

write (i, ' ') ;

writeln () ;

end;

end.

Ввести число, вывести числа по схеме:5 5 5 5 54 4 4 43 3 32 21Программа в паскале