• На вход программы подаются произвольные алфавитно-цифровые символы. Прогрмирование Паскаль ABC

    question img

Ответы 1

  • var a : array ['a'..'z'] of integer; c : char;begin for c := 'a' to 'z' do   a[c] := 0; read(c); while c <> '.' do   begin   if (c >= 'a') and (c <= 'z') then     a[c] := a[c] + 1;   read(c)   end; for c := 'a' to 'z' do   if a[c] <> 0 then     writeln(c,a[c])end.
    • Автор:

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

Войти через Google

или

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

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

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