Что бы найти пложадь круга надо число пи умножить на радиус в квадрате например 3,14×(2×2)=12,56
а про триугольник либо забыл либо не проходил
Элементарно погода. И вообще все что вокруг.
Var
a,b:integer;
Begin
writeln('Не вводите 44');
while b<>44 do
Begin
Writeln('Число, пожалуйста');
a:=a+b;
readln(b);
End;
Write(a,' - это сумма тех чисел, которые вы вводили');
End.
<span><em>uses crt;</em>
<em>var a,b,c,d,x:real;
</em>
<em>begin</em>
<em>clrscr;</em>
<em> writeln('введите A,B,C');
</em>
<em> readln( a,b,c );
</em>
<em> d:=sqr(b)-4*a*c;
</em>
<em> if d<0 then </em>
<em> writeln('действительных корней нет') </em>
<em> else if d=0 then </em>
<em> begin
</em>
<em> x:=(-b)/2*a;
</em>
<em> writeln('корень уравнения: ',x);
</em>
<em> end else </em>
<em> begin
</em>
<em> x:=(-b+sqrt(d))/2*a;
</em>
<em> writeln('1-ый корень уравнения: ',x);
</em>
<em> x:=(-b-sqrt(d))/2*a;
</em>
<em> writeln('2-ой корень уравнения: ',x);
</em>
<em> end
</em>
<em>end.</em>
<em><u>P.S. Надеюсь на благодарность и лучший ответ.</u></em>
</span>