Program asd; USES crt; var p,s,c,a,b:real; BEGIN clrscr; Writeln('Введите сторону À: '); Readln(A); Writeln('Введите сторону B: '); Readln(B); Writeln('Введите сторону C: '); Readln(C); P:=(a+b+c)/2; S:=SQRT(p*(p*a)*(p*b)*(p*c)); Writeln('S:= ',s:2:2); Writeln('P:= ',p); END.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
