Function ST(a,b,c:real):real; var p:real; begin p:=(a+b+c)/2; ST:=sqrt(p*(p-a)*(p-b)*(p-c)) end;
var a,s:array[1..3] of real; i,k:integer; begin Write('Введите длину стороны каждого треугольника: '); for i:=1 to 3 do begin Read(a[i]); s[i]:=ST(a[i],a[i],a[i]); end; if s[1]>s[2] then k:=1 else k:=2; if s[3]>s[k] then k:=3; Writeln('Треугольник номер ',k,' имеет наибольшую площадь') end.
Пример Введите длину стороны каждого треугольника: 6 7.3 4.18 Треугольник номер 2 имеет наибольшую площадь
1. прикладное ПО, системное и операционные системы 2. ОС - комплекс управляющих и обрабатывающих программ, которые, с одной стороны, выступают как интерфейс между устройствами вычислительной системы и прикладными программами 3. Интерфейс, Диалоговый режим взаимодействия пользователя или оператора с ЭВМ, при котором происходит непосредственный и двухсторонний обмен информацией, командами или инструкциями между человеком и ЭВМ. 4. Системой программирования называется комплекс программ, предназначенный для автоматизации программирования задач на ЭВМ . Предназначены для разработчиков ПО и системных программистов.
