А) 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.
Интернет – одно из самых удивительных изобретений 20-го века. Он дает безграничные возможности в отношении различных коммуникаций, получения и хранения нужной информации, направлении мультимедиа. Отношение к нему различных слоев населения неоднозначно, содержит даже диаметрально противоположные позиции, но огромное значение его в жизни современного человека не будет оспариваться никем.
Эта слайдовая презентация является результатом ученического исследования на тему влияния интернета на жизнь человека и на все общество в целом. На ее слайдах рассматриваются вопросы:
Shared Sub Main(args As String())
Dim n As Integer = Integer.Parse(Console.ReadLine())
Dim p As Single = 1
Dim i As Integer = 1
While i <= n
Dim a As Single = 2 * i
Dim b As Single = 2 * i + 1
p *= a / b
i += 1
End While
Console.WriteLine(p)
End Sub
Объяснение:
Объяснение по стокам:
2. Считать n с консоли
3. p - переменная с результатом
4. i - переменная для цикла
5-10. цикл - основная часть программы
6-7. Числитель и знаменатель соответсвенно.
8. Умножить результат на новую дробь
9. Увеличить счетчик цикла
11. Вывести результат