Написать программу в паскале напишите программу, подсчитывающую количество различных букв в заданном слове. входные данные: ввести строкy y с длиной не более 255 символов. выходные данные: вывести одно число, количество различных символов в данной строке.

Var   y, b: string;   i: integer; begin   readln(y);   for i : = 1 to length(y) do     if (pos(y[i], b) = 0) then       b : = concat(b, y[i]);   writeln(length(b)); end.

//pascal abc.net 3.2 сборка 1318 var   f: text;   n: integer;   s: string;     procedure voteraz(f: text; n: integer; s: string);   begin     writeln('было: '); assign(f,'input.txt'); reset(f); while not(eof(f)) do   begin     read(f,n);     write(n,' ');     if n> 7 then n: =n*(n div 7);     s: =s+inttostr(n)+' ';   end; delete(s,length(s),1); close(f); assign(f,'input.txt'); rewrite(f); write(f,s); close(f); writeln; writeln('стало: '); write(s); writeln; end; function votedva(f: text; n: integer; s: string): integer;   begin     writeln('было: '); assign(f,'input.txt'); reset(f); while not(eof(f)) do   begin     read(f,n);     write(n,' ');     if n> 7 then n: =n*(n div 7);     s: =s+inttostr(n)+' ';   end; delete(s,length(s),1); close(f); assign(f,'input.txt'); rewrite(f); write(f,s); close(f); writeln; writeln('стало: '); write(s); writeln; votedva: =0; end;     begin voteraz(f,n,s); votedva(f,n,s); end. начальное содержимое input.txt: 81 5 6 пример работы программы: было: 81 5 6  стало: 891 5 6 было: 891 5 6  стало: 113157 5 6

#include < iostream> int main(){ const int kol_tov = 20; int sbol = 0; int sbol_index = 0; int smal = 0; int smal_index = 0; int massiv[kol_tov] = { 12, 150, 1230, 332, 531, 1321, 32313, 123123, 123434, 4844, 84847, 48816, 181684, 181, 78616, 81141, 1894, 18974, 91234, 21239 }; smal = massiv[1]; for (int i = 0; i < kol_tov; i++) { if (massiv[i] > sbol) { sbol = massiv[i]; sbol_index = i + 1; } if (massiv[i] < smal) { smal = massiv[i]; smal_index = i + 1; } } std: : cout < < "samoe dorogoe: " < < sbol < < std: : endl < < "samoe deshevoe: " < < smal < <   std: : endl < < "index dorogogo: " < < sbol_index < < std: : endl < < "index deshevogo: " < < smal_index < < std: : endl; system("pause"); }