Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
AreaTriangulo.pas
//fpc 3.0.0 program Triangle (input, output); Var A, B ,C: 1..maxint; S, area :real; begin writeln ('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
Please
log in
to post a comment.
Урок 2 задача не из учебника: 4-значное число
Поиск совершенного числа
test30
Zadanie 3 б
solar system 7
Задача №1516. Проверка на простоту (цикл while)
матрица из шариков
Prosti brojevi praktikum nizovi
123456
practica 11 ejercicio 7 BETA
Please log in to post a comment.