Самый простой способ ( ток он будет не в ворде) это с помощью языка HTML. Там довольно таки просто я на нем сайт делала.
Здесь основнные теги - https://html5book.ru/html-tags/
Ну и на ютубе есть видеоуроки.
Dim a(5,5)
print "введите элементы матрицы:"
for i = 1 to 5
for j = 1 to 5
input a(i,j)
next j
next i
sg=0
sp=0
for i = 1 to 5
sg = sg + a(i,i)
sp = sp +a(i, 5-i+1)
next i
print "сумма элементов главной диагонали ="; sg
print "сумма элементов побочной диагонали ="; sр
Const n=20;
Var i, k:integer ;s:real ;
A:array [1..200]of Integer ;
Begin
S:=0;
For i:=1 to N do begin
Write(' ') ;
a[i]:=random(41)+150;
S:=s+a[i];
Writeln(' ', a[i]) ;
End;
S:=s/n;
For i:=1 to N do begin
If(a[i] >s) then k:=k+1;
End;
Writeln ( ' ', k) ;
End.
А) вибрация и шум
Б) отвокающий звук, например, звук лазерного принтера, который только разогревается, его частота, многим давит на голову
В) микроволны - это есть один из опасных раздражителей на головной мозг.
1) отвлекаться каждые 45 минут. Делать перерыв, выйти походить, подышать. Размыливается глаз ( т.е. после перерыва можно посмотреть на проблему которю решает программист иначе)
2) зрение, рекомендуется отвлекаться от монитора. Посмотреть в окно и фокумироваться на разных предметах, с разным рстоянием. Бережёт глаза.
3) Физические нагрузки, так как умственне намного тяжелее. Больше спать, отдыхать. Так как на свежую голову, приходят более рациональные идеи решении.
Стандартной функции, на сколько я знаю, нет, вот пример "самодельной" функции, возводящей число x в степень y:
function pow(x, y : integer) : integer;
var i, res : integer;
begin
res := 1;
for i:=1 to y do res := res*x;
pow := res;
end;