<em>VAR</em>
<em> i, kol: Integer;</em>
<em> a: Array [1..20] of Integer;</em>
<em>BEGIN</em>
<em> For i := 1 to 20 do Read(a[i]);</em>
<em />
<em> For i := 1 to 20 do</em>
<em> If (a[i] < -20) then Inc(kol);</em>
<em />
<em> Write(kol);</em>
<em>END.</em>
Var s,p,a,b,c:real;
begin
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Площадь треугольника: ',s);
<span>end.</span>
Я хз бро ты на другой сайт зайди и всё будет ок )) мне просто баллы нужны , и если не трудно сделай лучшим ответом пж
Два условия и два действия.
Второе условие вложенное, проверяется только если первое условие истинно.
Всего в данном фрагменте описаны 3 варианта поведения программы.