А) 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.
Задача №2 800*600*16 (16 бит на пиксель это 65 536 цветов)=7680000 - бит информационный вес одного поля кадра. Допустим частота обновления экрана монитора 60 Гц, тогда 7680000*60 (Гц)=460800000 бит в секунду * 60 (секунд)= 27648000000 бит - информационная емкость потока фильма в течении 1 минуты. Постичаем в байтах 27648000000/8/1024/1024/1024=3.2186 Гигабайт - объём информационного потока Задача №3 за одну секунду пройдет 36 мегабайт 2 часа = 7200 секунд *36=259200 мегабайт=253.12 Гбайт Подробнее - на -
4
Объяснение:
1 раз - x+1=8
2 раз - x+1=9
3 раз -x+1=10
4 раз- x+1=11
дальше алгоритм не идет, т.к. число не подходит под условие цикла