Program z1;
var a,b,c,ha,hb,hc,s1,s2,s3:real;
begin
writeln('введите основание и высоту (соответственно) первого треугольника');
readln(a,ha);
s1:=1/2*a*ha;
writeln('площадь первого треугольника = ',s1);
writeln('введите основание и высоту (соответственно) второго треугольника');
readln(b,hb);
s2:=1/2*b*hb;
writeln('площадь второго треугольника = ',s2);
writeln('введите основание и высоту (соответственно) третьего треугольника');
readln(с,hс);
s3:=1/2*с*hс;
writeln('площадь третьего треугольника = ',s3);
end.
Ответ:
1. 20
2. 30
Объяснение:
Это рекурсивный алгоритм, новые значения берутся из значений полученных ранее
F(1)=2
F(2)=F(2-1) + 2*2=2+4=6
F(3)=F(3-1) + 2*3=6+6=12
F(4)=F(4-1) + 2*4=12+8=20
Аналогично со 2 алгоритмом
Var a,b:real;
begin
write('a, b: ');
readln(a,b);
writeln(a,' + ',b,' = ',a+b);
if a+b<1
then if a<b then a:=(a+b)/2 else b:=(a+b)/2
else if a<b then a:=a+b else b:=a+b;
writeln('a = ',a,' b = ',b);
end.
Пример:
a, b: -2.8 4.5
-2.8 + 4.5 = 1.7
a = 1.7 b = 4.5