Задание 1:
var a,b,c,p,s:real;
begin
write('Введите a: '); readln(a);
write('Введите b: '); readln(b);
write('Введите c: '); readln(c);
p:=(a+b+c)/2;
s:=sqrt(p*((p-a)*(p-b)*(p-c)));
writeln('Площадь: ',s);
end.
Задание 2:
а)
var a:real;
begin
a:=1/(1+(1/(2+(1/(2+(3/5;
writeln(a);
end.
ответ: 0.704545454545454
б)
var
a,b,c,d:real;
begin
write('Введите a: '); readln(a);
write('Введите b: '); readln(b);
write('Введите c: '); readln(c);
d:=(((-b)+sqrt(sqr(b)-4*a*c))/2*a);
writeln(d);
end.
Ну вот так это будет выглядеть с ветвлением и возможностью повторять вычисления без повторного запуска программы.
var a,b,c,d,z:integer;
begin
writeln('Введите 1 число');
read(a);
writeln('Введите 2 число');
read (b);
writeln('Введите 3 число');
read (c);
d:=a+b+c;
writeln('Сумма чисел ',a,'+',b,'+',c,'=',d);
writeln ('Хотите ли вы решить еще один пример? 1-ДА, 0-Нет');
read (z);
while (z = 1) do
begin
writeln('Введите 1 число');
read(a);
writeln('Введите 2 число');
read (b);
writeln('Введите 3 число');
read (c);
d:=a+b+c;
writeln('Сумма чисел ',a,'+',b,'+',c,'=',d);
writeln ('Хотите ли вы решить еще один пример? 1-ДА, 0-Нет');
read (z);
end;
end.
Python 3.7.4
Объяснение:
>>> p = 0
>>> a = 4
>>> for i in range(5):
a = 2 * a - 1
p = p + a
>>> print (a)
97
>>> print (p)
191
>>>