Question

дана площадь квадрата, вывести на экран 2,3,4 площадей квадратов

Answer 1

Ответ:

Объяснение:

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.

Подробнее - на Znanija.com - https://znanija.com/task/11231721#readmore