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