Вводиться число n Вывести на экран по образцу (Программа в Pascal ABC)

1 2 3 4 ... n

2 3 4 ... n

3 4 ... n

...

n

Question

Валенсия

10 сентября, 06:01

+5

Ответы (1)

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

Аверкий · Answer 1

Var

i, j, N:integer;

begin

readln (N) ;

for i:=1 to N do

begin

for j:=i to N do

write (j, ' ') ;

writeln;

end;

end.

Вводиться число n Вывести на экран по образцу (Программа в Pascal ABC)1 2 3 4 ... n2 3 4 ... n3 4 ... n...n