1. В кабинете вычислительной техники установлена дорогостоящая, сложная техника - компьютеры, принтер и другие технические средства. Поэтому: бережно обращайтесь с этой техникой; спокойно, не торопясь, не толкаясь, не задевая столы, входите в кабинет и занимайте отведенное вам место, ничего не трогая на столах.2. На вашем рабочем месте размещены составные части ЭВМ - клавиатура, монитор, системный блок, мышь. Во время работы лучевая трубка работает под высоким напряжением. Неправильное обращение с аппаратурой, кабелями и монитором может привести к тяжелым поражениям электрическим током, вызвать загорание аппаратуры. ПоэтомуС Т Р О Г О З А П Р Е Щ А Е Т С Я: трогать разъемы соединительных кабелей; прикасаться к питающим проводам и устройствам заземления; прикасаться к экрану и к тыльной стороне монитора, клавиатуры, системного блока; включать и отключать аппаратуру без указаний учителя; класть предметы на монитор и клавиатуру; работать во влажной одежде и влажными руками.3. При появлении запаха гари, огня немедленно прекратить работу, выключить аппаратуру и сообщить об этом учителю.4. Перед началом работы убедитесь в отсутствии видимых причин повреждений рабочего места; сядьте так, чтобы линия взора приходилась в центр экрана, чтобы, не наклоняясь пользоваться клавиатурой и воспринимать передаваемую на экран монитора информацию; разместите на столе учебные принадлежности так, чтобы они не мешали работе на ЭВМ; внимательно слушайте объяснения учителя и старайтесь понять цель и последовательность действий, в случае необходимости обращайтесь к преподавателю; начинайте работу только по указанию учителя.5. Во время работы на ЭВМ лучевая трубка является источником электромагнитного излучения, которое при работе вблизи экрана неблагоприятно действует на зрение, вызывает усталость и снижает работоспособность. Поэтому следует работать от монитора на расстоянии 60 - 70 см, соблюдая правильную посадку, не сутулясь, не наклоняясь. Учащимся, имеющим очки для постоянного ношения, быть в очках.6. Работа на ЭВМ требует большого внимания, четких действий, поэтому нельзя работать при недостаточном освещении, при плохом самочувствии.7. Во время работы:строго выполняйте все указанные выше правила, а также текущие указания учителя;следите за исправностью аппаратуры и немедленно прекращайте работу при появлении необычного звука или самопроизвольного отключения аппаратуры, немедленно сообщить о случившемся учителю;плавно нажимайте клавиши;не пользуйтесь клавиатурой, если не подключено напряжение;работайте чистыми руками;не пытаться самопроизвольно отключать и исправлять неисправности;не вставайте со своих мест, когда в кабинет входят посетители.8. Вы должны хорошо знать и грамотно выполнять эти правила, точно следовать указаниям преподавателя, чтобы успешно овладеть знаниями, умениями, навыками; сберечь школьное имущество.Вы отвечаете за состояние своего рабочего места и сохранность размещенного на нем оборудования.<span>НЕВЫПОЛНЕНИЕ ПРАВИЛ - ГРУБЕЙШЕЕ НАРУШЕНИЕ ПОРЯДКА И ДИСЦИПЛИНЫ.</span>
var i:integer; a:array[1..10]of integer; begin writeln('Исходный массив:'); for i:=1 to 10 do begin a[i]:=random(-5,5); write(a[i]:4); end; for i:=1 to 10 do if a[i]>0 then a[i]:=a[i]+2 else a[i]:=0; writeln; writeln('Преобразованный массив:'); for i:=1 to 10 do write(a[i]:4); <span>end.</span>
1).Использовал цикл,но условия не до конца понял program c1; var n,i:integer; y,l:real; begin l:=1; readln(n); for i:=1 to n do begin y:=y+(1/l); l:=l+1; writeln(y); end; end.
2).
program c1; var n,i:integer; begin readln(n); for i:=1 to n do begin if (i mod 3=2) then write(i,' '); end; end.
<em>// PascalABC.NET 3.2, сборка 1437 от 03.05.2017</em> <em>// Внимание! Если программа не работает, обновите версию!</em>
begin Writeln('*** Исходный массив 12x12 ***'); var a:=MatrRandom(12,12,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); Writeln('Строка, содержащая максимальный элемент'); a.Row(a.ElementsWithIndexes.Select(e->(e[0],e[2])) .MaxBy(e->e[1])[0]).Println; Writeln('*** Итоговый массив 12x12 ***'); foreach var i in Range(0,11,2) do a.SetRow(i,(a.Row(i).Sorted.ToArray)); a.Println(4) end.