Борислав
5 год назад
Вывести символы латинского алфавита с увеличением на 1 символ:( Паскаль Абс) ZZ YZ Y X...Z Y X ... B A
ОТВЕТЫ
Йорданка
Oct 24, 2020
Var C,A:char;
Begin
For A:= 'Z' downto 'A' do
Begin
For C:= 'Z' downto A do
Write(C,' ');
WriteLn;
End;
End.
Begin
For A:= 'Z' downto 'A' do
Begin
For C:= 'Z' downto A do
Write(C,' ');
WriteLn;
End;
End.
820
