Question

ПОМОГИТЕ пожалуйста язык ПАСКАЛЬ информатика написать программу для решения задач
ЗАДАЧИ НОМЕР 9 и 10❗❗❗❗
фото прикрепляю

Answer 1

Паскаль

9

var s, a, b, c: real;

begin

print('Введите длины сторон через интер  ');

readln(a);

readln(b);

readln(c);

s:=((a+b)/2)*sqrt(c*c*-(((a-b)*(a-b))/4));

writeln ('s=',s);

end.

10 сначала надо выразить переменные.

const p=3.14;

var s, r1, r2: real;

begin

print('Введите площадь кольца  ');

readln(s);

r1:=sqrt((s/p)+r2*r2);

r2:=sqrt(r1*r1-(s/p));

writeln ('r=',r2);

writeln ('R=',r1);

end.