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

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

Z

Z Y

Z Y X

...

Z Y X ... B A

Question

Руфиниана

7 июня, 17:39

+3

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