Для перевода температуры, измеренной по шкале цельсия, в соответствующую температуру по шкале фаренгейта - id522329120210529 от 1NICOLAS1 29.05.2021 00:16

Question

Информатика: Для перевода температуры, измеренной по шкале цельсия, в соответствующую температуру по шкале фаренгейта необходимо температуру по цельсию умножить на 9/5 и прибавить 32. найдите такую температуру по цельсию, которая наиболее близка к соответствующей температуре по фаренгейту равной 70. 1)20 2)40 3)60 4)70

1NICOLAS1 · Accepted Answer

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 имеет наибольшую площадь

MOGZ ответил