А) 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.
Будем переводить скорость передачи в Мбайт/с, поскольку объем файла задан в Мб. Можно также решать задачу, приводя 5 Мб к битам, но так пусть связисты решают, биты - это их хлеб, а в информатике привычнее байты.
1 Мб = 2²⁰ б = 2²⁰×8 бит = 2²³ бит; 5 Мб = 5×2²³ бит 128000 бит/с = 1000×2⁷ бит/с и за 1 минуту с такой скоростью будет передано 60×1000×2⁷ = 60000×2⁷ бит. Тогда время на передачу файла составит (5×2²³) / (60000×2⁷) = 5×2¹⁶/60000 = 5×2⁶×2¹⁰/60000 = 5×64×1024/60000 ≈ 5.46 мин
Если есть калькулятор, можно сразу считать на нем, без степеней. 5 Мб = 5×1024×1024×8 = 41 943 040 бит. За минуту модем передает 128 000×60 = 7 680 000 бит Время передачи файла составит 41 943 040 / 7 680 000 ≈ 5.46 (мин)
Копирование - переписываешь книжку в тетрадку
Измерение - считаешь количество слов в тексте
Разрушение - сломался жесткий диск из - за удара