Решить . 1. дана площадь квадрата. определить и вывести на экран сторону квадрата и длину его диагонали. 2. определите, какое значение примут переменные после выполнения фрагмента программы: а : =7974; b : = -26+a div 100*100; a : = (a-b) mod 10+7864; 3. ввести три числа . большее из b и c добавить к а, полученные значения a, в, с вывести на экран. 4. даны числа . если они четные, то заменить каждое нулем, если четно только одно, то увеличить его в 5 раз, вывести полученные значения числе на экран. 5. определите, какое значение примет переменная после выполнения программы: a : =20; b : =10; b : =b-2*a; if a < b then c: =b-a else c: =a-2*b;

Var a,t,s,zn,zn1: real; z,r,q1,q2,q3,qv1,qv2,qv3: integer; function kv(s: real): real; begina : = sqrt(s); kv : = a; end; procedure d(r: integer; var m,m1: real); var h: integer; begin h : = -26+r div 100*100; r : = (r-h) mod 10+7864; m: = r; m1 : = h; end; procedure rt(v1,v2,v3: integer; var n1,n2,n3: integer); beginif v2 > v3 then v1: = v1 + v2else v1 : = v1 + v3; n1: =v1; n2: = v2; n3: =v3; end; procedure rt2(v1,v2: integer; var n1,n2: integer); beginif (v1 mod 2 =0) and (v2 mod 2 = 0) then begin n1: = 0; n2: = 0; end else if (v1 mod 2 =0)then v1 : = v1 *5 else if(v2 mod 2 =0)then v2: = v2 * 5; n1: =v1; n2: = v2; end; function rr(a,b: integer): real; var c: integer; begin b : =b-2*a; if a < b then  rr: =b-a  else  rr: =a-2*b; end; beginr : =7974; writeln('введите площадь квадрата'); readln(s); t: = kv(s); writeln('сторона квадрата равна = ',t); d(r,zn,zn1); writeln('переменные a, b значение примут ',zn: 5, zn1: 5); writeln('ввести три числа a, b,c'); readln(q1,q2,q3); rt(q1,q2,q3,qv1,qv2,qv3); writeln('a, b, c получили значения',qv1: 4,qv2: 4,qv3: 4); writeln('ввести числа x, y'); readln(q1,q2); rt2(q1,q2,qv1,qv2); writeln('x, y получили значения',qv1: 4,qv2: 4); writeln('определяем, какое значение примет переменная c'); q1: =20; q2: =10; s: = rr(q1,q2); writeln('переменная c примет значение: ', s); end.

область «Вставка таблицы»

Если вам нужна небольшая табличка, то проще всего создать её с области «Вставка таблицы». Как это сделать?

Для начала перейдите во вкладку «Вставка» и на ленте меню кликните на иконку «Таблица».

В результате появится выпадающий список с различными командами для создания таблиц. Вверху списка вы увидите панель с маленькими квадратиками количеством 10×8. Они изображают ячейки будущей таблицы.

Всё, что нужно – это двигать мышкой по панели с квадратиками в направлении сверху-вниз и слева-направо, выбирая необходимое количество столбцов и строк. При этом нажимать ничего не надо.

Чтобы вы ориентировались, какая у вас получится таблица, синхронно с движением мышки квадратики будут подсвечиваться, а над панелью отобразится размер таблицы, где первая цифра – это количество столбцов, а вторая – строк. Также на странице появится образец таблицы, который, опять же, будет меняться в зависимости от количества выделенных квадратиков. Когда размер таблицы вас устроит, просто кликните один раз по области – и таблица добавится.

Это, наверное, самый быстрый вставить пустую таблицу, однако, подходит он не всегда. В области «Вставка таблицы» вы можете указать максимум 8 столбцов и 8 строк. Но что делать, если вам нужна таблица побольше? В таком случае воспользуйтесь командой «Вставить таблицу».

команда «Вставить таблицу»

Команда «Вставить таблицу» находится там же – во вкладке «Вставка», в меню «Таблица».

Кликните на неё - и на экране появится окошко с параметрами вставки.

Чтобы создать таблицу, просто укажите нужное количество столбцов и строк в соответствующих полях. Вы можете либо ввести необходимое значение, либо выбрать его с стрелочек справа от каждого поля.

Кроме того, в этом окошке вы можете сразу настроить ширину таблицы: задать точную ширину каждого столбца, определить подбор ширины по содержимому ячеек или распределить ширину столбцов по всей странице.

Когда все параметры заданы, нажмите Ок. Вот, собственно, и всё. Преимущество этого в том, что вы можете создать таблицу любого размера.

команда «Нарисовать таблицу»

Ещё один создать таблицу – нарисовать её. Этот процесс занимает больше времени по сравнению с остальными, но он оправдывает себя, когда вам нужно создать какую-то нестандартную таблицу, где большинство ячеек разного размера.

Итак, для начала во вкладке «Вставка» откройте меню «Таблицы» и выберите команду «Нарисовать таблицу».

Затем наведите курсор на страницу – он превратится в карандаш. Зажмите левую кнопку в том месте страницы, где должен быть верхний левый угол таблицы и, не отпуская её, передвигайте мышку вправо-вниз до тех пор, пока таблица не станет нужного размера. Таким образом, вы нарисуете её внешние границы.

Дальше вам нужно с вертикальных и горизонтальных линий разделить всю область таблицы на столбцы и строки. Чтобы нарисовать вертикальную линию, зажмите курсор на верхней или нижней границе таблицы и, не отпуская, передвигайте его в противоположную сторону. При этом, как бы вы не вели мышку, линия всегда будет ровной.

Когда закончите – отпустите кнопку. Аналогично, зажмите курсор в нужном месте левой или правой границы и перетаскивая его, соответственно, вправо или влево, нарисуйте горизонтальную линию.

Когда таблица готова, нажмите клавишу Esc, чтобы вернуться в обычный режим.

.

.

Var a: array [1..10] of integer;     i, x, y, xi, yi, t: integer; begin      for i : = 1 to 10 do          readln(a[i]);       writeln('x, y');       readln(x, y);                   for i : = 0 to abs(round(0.5*(x- do      begin          t : = a[x+i];         a[x+i] : = a[y-i];         a[y-i] : = t;       end;             for i : = 1 to 10 do          writeln('[', i, '] => ', a[i]); end.