Question

Ребят как это решить 3,4 в Паскале (20баллов)

Answer 1

Ответ:

Объяснение:

3) var a,b,c,p,S:real;

begin writeln('введите a - '); read(a);

writeln('введите b - '); read(b);

writeln('введите c - '); read(c);

p := (a+b+c)/2;

S:= sqrt(p*(p-a)*(p-b)*(p-c));

write('S = ',S)

end.

4) var m,h,g,E:real;

begin writeln('введите m - '); read(m);

writeln('введите h - '); read(h);

g := 9.8;

E := m*g*h;

write('E = ',E,' Дж')

end.