<span>роби раз на тиждень шкоди не буде,
делай раз в неделю вреда не будет</span>
{требуются переменные под длинны сторон, для площади и промежуточная для полупериметра;
программа:}
Program n1;
var a,b,c,S,p: real; {описание переменных}
begin
readln(a,b,c); //ввод данных
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('площадь: ',S);
end.
//////////////////////////////////////////////////////////
Var
n:integer;
x,p:real;
begin
x:=2;p:=1;
writeln('N?');
readln(n);
repeat
p:=p*Sin(x);
x:=x+2;
until x>n*2;
writeln('p: ',p:4:2);
end.
Не знаю точно, поправите синтаксис. Я не знаю паскаль очень хорошо.
a:=5;
b:=4;
c:=sqr(a)+sqr(b);
write c;
поправьте синтаксис, возможно не правильно. Но алгоритм примерно такой