Вывести символы латинского алфавита с увеличением на 1 символ:

(Паскаль Абс)

Z

Z Y

Z Y X

...

Z Y X ... B A

Question

Миня

17 мая, 16:31

+2

Ответы (1)

Знаете ответ?

Мара · Answer 1

Var C, A:char;

Begin

For A: = 'Z' downto 'A' do

Begin

For C: = 'Z' downto A do

Write (C,' ') ;

WriteLn;

End;

End.

Вывести символы латинского алфавита с увеличением на 1 символ:(Паскаль Абс)ZZ YZ Y X...Z Y X ... B A