profile
Опубликовано 5 лет назад по предмету Информатика от all199927

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

  1. Ответ
    Ответ дан Segrif
    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.
Самые новые вопросы
Носкова Анастасия
Другие предметы - 4 года назад

Сочинение-рассуждение. прочитайте текст. есть у меня внучка. однажды она говорит: — у веры в субботу день рождения. она

Наумова Надя
Другие предметы - 4 года назад

Л.н. толстой. как боролся русский богатырь как сказал иван о своей силе? найдите ответ в тексте. запишите.

Сазонова Анастасия
История - 4 года назад

Кто такой мильтиад и какова его роль в победе над персами?

Тетерина Татьяна
История - 4 года назад

Какие примеры н. м. карамзин использует для разъяснения пользы новой системы престолонаследия? согласны ли вы с позицией

Попова Полина
География - 4 года назад

Дополните схему. она поможет вам лучше усвоить содержание §1.: 1 что изучает география 2 с помощью чего 3 зачем изучают

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.