Var a,b,c:real;
begin
readln(a,b,c);
if (a = b) and (b = c) then begin
writeln ('Треугольник равносторонний');
writeln('Его высота = ',(sqrt(3) * a)/2:0:3)
end else
if (a = b) or (b = c) or (c = a) then begin
writeln('Треугольник равнобедренный');
writeln('Его полупериметр = ',(a+b+c)/2);
end else
begin
writeln('Треугольник разносторонний');
if (a>b) and (a>c) then writeln('Большая сторона = ',a) else
if (b>a) and (b>c) then writeln('Большая сторона = ',b) else
writeln('Большая сторона = ',c); end;
end.
Больших жёлтых яблок было 7 штук.
1.32+17=42. Всего плодов
2.42-32=10.маленк. желт. яблок.
3.42-28=14.- большие зел.плоды
4.<span>Яблок на 2 больше, чем груш — 8 яблок, 6 груш.
5. 25 яблок, из них больш. зел. 8, маленк. жёлт. 10.
6.</span><span> 25-8-10=7.</span>
program n;
uses crt;
var i,s:integer;
begin
s:=0;
for i:=50 to 600 do
if (i mod 8)=0 then s:=s+i;
writeln(s);
<span>end.</span>