Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Area of a Triangle
//fpc 3.0.0 program Triangle (input, output) Var A, B ,C: 1..maxint; S, area :real; begin {read and print sides in ascending order} read (A ,B ,C); write (A,B,C, '.....'); if A+B>C then begin {determine nature of triangle } if A=C then write ('an eguailateral triangle ') else if (A=B) or (B=C) then write ('an isosceles triangle') else write ('a scalene triangle ') {determine the area} S:= 0.5 * (A+B+C) area:=sgrt (s*(S-A)*(S-B)*(S-C)); writeln ('of area' , area:8:2) end else writeln('not a triangle') end.
run
|
edit
|
history
|
help
0
Tugas
j en ai marre
[DE/GER] Vigenere Chiffre (Verschlüsselung)
practica 1 ejercicio 3
Huong11a2@
1
basketball_player_training
practica 7 ejercicio 1
Largest Prime Factor
practica 3 ejercicio 9