Используем формулу Герона для нахождения площади треугольника по трем сторонам: S=√(p·(p-a)·(p-b)·(p-c)), где p - полупериметр, равный p=(a+b+c)/2
Программа:
program z; var a1,b1,c1,a2,b2,c2,p1,p2,s1,s2:real; begin readln(a1,b1,c1); {ввод длин сторон первого треугольника} p1:=(a1+b1+c1)/2; {полупериметр первого треугольника} s1:=sqrt(p1*(p1-a1)*(p1-b1)*(p1-c1)); {площадь первого треугольника}
readln(a2,b2,c2); {ввод длин сторон второго треугольника} p2:=(a2+b2+c2)/2; {полупериметр второго треугольника} s2:=sqrt(p2*(p2-a2)*(p2-b2)*(p2-c2)); {площадь второго треугольника} if s1=s2 {если площади треугольников равны} then writeln('Yes') {то вывести положительный ответ} else writeln('No'); {иначе вывести отрицательный ответ} end.
Program fofgogjoj; var arr: array[1..1000] of byte; max_num, min_num: byte; i: byte; n,p:integer; begin randomize; Wriiteln('Введите число n'); Readln(n); for i := 1 to n do begin arr[i] := random(100); Write (arr[i]:3); end; max_num := arr[1]; for i := 2 to n do if arr[i] > max_num then begin max_num := arr[i]; end; Writeln; Writeln ('Max = ',max_num); min_num := arr[1]; for i := 2 to n do if arr[i] < min_num then begin min_num := arr[i]; end; Writeln; Writeln ('Min = ',min_num); P:=max_num*min_num; Writeln('Произведение равно:',p); end.
б) 2
Объяснение:
x < y то есть, 2 < 3, а значит s=x=2