Решить . 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.

Одновременно и нарицательное, и собственное?