Решить задачи.

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.