Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Определение типа треугольника по трём сторонам
const eps = 0.01; var a, b, c, temp : real; begin readln (a, b, c ); writeln ('a=', a, ' b=', b, ' c=', c); if a > b then begin temp := a; a := b; b := temp end; writeln ('a=', a, ' b=', b, ' c=', c); if b > c then begin temp := b; b := c; c := temp end; writeln ('a=', a, ' b=', b, ' c=', c); if a > b then begin temp := a; a := b; b:= temp end; writeln ('a=', a, ' b=', b, ' c=', c); if a + b > c then if abs (a*a + b*b - c*c) < eps then writeln ('90') else if a*a + b*b - c*c < 0 then writeln('>90') else writeln ('<90') else writeln ('no') end.
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
temp
nombre_completo
Урок 3 задача на вывод 1 и 0 как функция целого
Sum of array
IT101 - W4_1
4 ariketa
P170808C
TID-CALCULATOR
AUMENTAR O DISMINUIR EDADES
1486
Please log in to post a comment.