Program zadacha;
Var x,y,z,ans:Int64;
Begin
ReadLn(x,y,z);
If (x>0) and (y>0) and (z>0) then Inc(ans);
If (ans=0) then WriteLn('Такой треугольник построить нельзя') else begin
Write('Такой треугольник можно построить');
If(x=y) xor (x=z) xor (y=z) then Write(', он будет равнобедренным') else
If(x=y) and (x=z) and (z=y) then Write(', он будет равносторонним')else
If(x=y) xor (x=z) xor (y=z) then Write(', он будет равнобедренным');
<span>If (sqr(x)+sqr(y)=sqr(z)) or (sqr(y)+sqr(z)=sqr(x)) or (sqr(z)+sqr(x)=sqr(y)) then </span>
<span>write(', он будет прямоугольным.') else</span>
<span> If(sqrt(sqr(x)+sqr(y))>z) xor (sqrt(sqr(z)+sqr(y))>x) xor (sqrt(sqr(x)+sqr(z))>y) then Write(', он будет остроугольным.')</span>
<span>else write(', он будет тупоугольгым.');</span>
end;
End.
<u><em>ps: не забудь пометить как лучшее решение плизз)</em></u>
1)3<=11
sum=0+3
i=3+2
2)5<=11
sum=3+3
i=5+2
3)7<=11
sum=6+3
i=7+2
4)9<=11
sum=9+3
i=9+2
5)11<=11
sum=12+3
i=11+2
6)13>11 Выполнено!
sum=15!
<span>целый целый R := A + B
тип результата: целый
целый целый R := A - B
</span><span><span>тип результата: целый
</span>целый целый R := A * B
</span><span>тип результата: целый
целый целый R := A / B
</span><span><span>тип результата: вещественный
</span>целый целый A > B
</span><span><span>тип результата: логический (true/false)
</span>
целый целый A < B
</span><span><span><span>тип результата: логический (true/false)
</span>
</span>вещественный вещественный R := A + B
</span><span><span>тип результата: вещественный
</span>вещественный вещественный R := A - B
</span><span><span>тип результата: вещественный
</span>вещественный вещественный R := A * B
</span><span><span>тип результата: вещественный
</span>вещественный вещественный R := A / B
</span><span><span>тип результата: вещественный
</span>вещественный вещественный A > B
</span><span><span><span>тип результата: логический (true/false)
</span>
</span>вещественный вещественный A < B </span>
<span><span>тип результата: логический (true/false)
</span></span>
Создание и редактирование растровых графических изображений
program raf105;
var
a,b,c,k: real;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
write('c = ');
readln(c);
if a*b*c <> 0 then k:= sqrt(a*b*c)
else k:= (a+b+c) / 2;
writeln('k = ',k);
end.
<h3>PascalABC</h3>