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

5 5 5 5 5

4 4 4 4

3 3 3

2 2

1

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

Question

Зинуха

8 октября, 03:18

+2

Ответы (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Программа в паскале