Встановіть відповідність між операторами та їх призначенням. Вкажіть відповідність для всіх 4 варіантів відповіді: 1) Відображення значень елементів масиву в полі Memo1
2) Пошук рядка 'АБ' в масиві Memo1.Lines
3) Занесення до числового масиву змісту рядків Memo1
4) Визначення кількості елементів в масиві Memo1.Lines
__ N := Memo1.Lines.Count;
__ For i:=1 to N do Posl[i] := StrToInt(Memo1.Lines[i - 1])
__ For i := 0 to Memo1.Lines.Count - 1 do If Memo1.Lines[i] = 'АБ' Then Label1.Caption := IntToStr(i)
__ For i := 1 to 5 do Memo1.Lines.Add(words [i])
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.
Эта слайдовая презентация является результатом ученического исследования на тему влияния интернета на жизнь человека и на все общество в целом. На ее слайдах рассматриваются вопросы:
- Что же такое интернет,
- Использование интернета в жизни людей,
- Как интернет влияет на людей,
- Интернет для ребенка,
- Можем ли мы прожить без интернета,
- Интернет в отдельном школьном классе,
- Личное отношение автора к интернету.