Регистрация
айка392
03.07.2022 11:14
Информатика
Есть ответ 👍

Придумайте свiй б кодування

277
476
Посмотреть ответы 2

Ответы на вопрос:

CBeTouD
CBeTouD
4,6(67 оценок)

ответ:88005553535

Объяснение:

1039лчдвб
1039лчдвб
4,5(6 оценок)

function FS(a,b:real):=0.5*a*b;

begin

 var a,b:real;

 Write('Катеты первого треугольника: '); Read(a,b);

 var S1:=FS(a,b);

 Write('Катеты второго треугольника: '); Read(a,b);

 var S2:=FS(a,b);

 if S1>S2 then Writeln('Площадь первого треугольника больше')

 else

   if S1<S2 then Writeln('Площадь второго треугольника больше')

 else Writeln('Площади треугольников равны')

end.

Объяснение:

Популярно: Информатика