Регистрация
reki45
07.05.2022 04:52
Информатика
Есть ответ 👍

Визначить тип моделі:

Карта України, рівняння хімічної реакції, опудало тварини, глобус,

розповідь про Європу, план евакуації з кабінету інформатики,

графік функції, нотний запис гімну України, розклад уроків,

модель літака.

186
230
Посмотреть ответы 1

Ответы на вопрос:

nikaa10
nikaa10
4,8(29 оценок)
А) var     s: string;     mas: array ['a'..'z'] of longint; {индексы элементов соответствуют латинице}     c: char;     i: longint; begin       read(s);       for c: ='a' to 'z' do{заполнение нулями элементов массива, для запоминания количества элементов в латинице}           mas[c]: =0;       for i: =1 to ord(s[0]) do{пробегаем по всей строке ord(s[0]) это количесвто элементов в строке (только паскаль)}           mas[s[i]]: =mas[s[i]]+1;       for c: ='a' to 'z' do{пробегаем по массиву значений и выводим только неповторяющиеся}           if(mas[c]=1) then                       writeln(c); end.

Популярно: Информатика