1. Tab, shift+tab 2. Выделить и Del или Backspace 3. Копирование делает копию, а перемещение нет. Перетаскивание делает копию при зажатом ctrl 4. Ctrl+r или ctrl+H и заполнить нужные поля 5. перечитать, откомпилировать, отдебажить, смотря какая именно правильность нужна 6. напечатать большими буквами 7. зависит от редактора и что именно подразумевается под анимацией шрифта 8. style="background: your_color" 9. style="font-weigth: bold" 10. смотря какого именно отступа 11. не знаю 12. список, где каждый пункт отмечен маркером 13. даже не знаю, лучше добавить пробелов 14. выставить размер отступа в настройках, типа "tab_size": 4, 15. style="line-height: 1.5" 16. выделить слово и ctrl+F3 17. теги sup и sub 18. <style> p { margin-top: 0.5em; /* Отступ сверху */ margin-bottom: 1em; /* Отступ снизу */ } </style> 19. <ol> <li>Первый пункт</li> <li>Второй пункт</li> <li>Третий пункт</li> </ol> 20. <span color="your_color">S</span> 21. <ul type="disc"> 22. стереть и написать заново 23. ctrl+s 24. глубиной вложености и больше ничем 25. просмотр перед печатью, если он есть
Все ответы приводились для обычных текстовых редакторов типа Sublime Text или стили для работы с HTML
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(ReadInteger('n='),-11,11); a.Println; // 1 begin var s:=a.Where(t->t<0); if s.Count=0 then Writeln('1. Нет отрицательных элементов') else Writeln('1. Первый отрицательный элемент номер ', a.IndexOf(s.First)+1) end; // 2 begin var s:=a.Select((v,i)->(v,i)).Where(t->(t[0]>0) and t[0].IsEven); if s.Count=0 then Writeln('2. Нет четных положительных элементов') else begin var r:=s.Last; Writeln('2. Последний четный положительный элемент номер ',r[1]+1, ', значение ',r[0]) end end; // 3 begin var s:=a.Select((v,i)->(v,i)).Where(t->t[0] mod 5=0); if s.Count<2 then Writeln('3. Нет двух элементов, кратных 5') else Writeln('3. Номер второго элемента, кратного 5, равен ', (s.Skip(1).Take(1)).First[1]+1) end; // 4 begin var s:=a.Select((v,i)->(v,i)).Where(t->t[0]=0); if s.Count<3 then Writeln('4. Нет трех нулевых элементов') else begin s:=s.Skip(1).Take(2); Writeln('4. Количество положительных элементов между ', 'вторым и третьим нулевыми элементами равно ', a[s.First[1]+1:s.Last[1]].Where(t->t>0).Count) end end; // 5 begin var s:=a.IndexesOf(t->t>0).Take(4).Select(t->t+1); if s.Count<4 then Writeln('5. Нет четырех положительных элементов') else begin Write('5. Номера первых четырех положительных элементов: '); s.Println end end; // 6 begin var s:=a.IndexesOf(t->t<0); if s.Count=0 then Writeln('6. Нет отрицательных элементов') else Writeln('6. Номера первого и последнего отрицательных элементов: ', s.First+1,' ',s.Last+1) end; // 7 begin var s:=a.IndexesOf(t->t>0); if s.Count=0 then Writeln('7. Нет положительных элементов') else begin var i1:=s.First; s:=a.IndexesOf(t->t<0); if s.Count=0 then Writeln('7. Нет отрицательных элементов') else begin var i2:=s.Last; Writeln('7. Количество четных элементов между первым ', 'положительным и последним отрицательными элементами: ', a?[i1+1:i2].Where(t->t.IsEven).Count) end end end end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку