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

Ответы 1

  • Var C,A:char;BeginFor A:= 'Z' downto 'A' do    Begin    For C:= 'Z' downto A do        Write(C,' ');    WriteLn;    End;End.
    • Автор:

      chuckles
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years