Вывести символы латинского алфавита с увеличением на 1 символ: ( паскаль абс) z z y z y x z y x b a

775645 775645    2   31.08.2019 12:00    6

Ответы
smirnovakrestin smirnovakrestin  26.08.2020 12:51
Var C,A:char;
Begin
For A:= 'Z' downto 'A' do
    Begin
    For C:= 'Z' downto A do
        Write(C,' ');
    WriteLn;
    End;
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика