Var ab,h,s:real;
begin
write('a+b = '); readln(ab);
write('h = '); readln(h);
s:=ab/2*h;
writeln('S = ',s);
end.
Пример:
a+b = 10
h = 6
S = 30
....................................
т.е. числа из интервала (2, 5), если целые то это 3 и 4
A)
var x,y:real;
y:=sqrt(x);
б)
var a,b,c:real;
c:=sqrt(a*a+b*b);
в)
var a,b,c,d,x1,x2:real;
d:=b*b-4*a*c;
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
г)
var s1,s2,s3,st:real; k1,k2,k3:integer;
st:=s1*k1+s2*k2+s3*k3;