Vladimir Kochetkov
Мастер
(1778)
15 лет назад
Это ж элементарно
var s,a,b,c : real;
begin
write("input a: "); readln(a);
write("input b: "); readln(b);
write("input c: "); readln(c);
s:=a+b+c;
a:=a/s*180;
b:=b/s*180;
c:=c/s*180;
writeln("1st angle: ",a);
writeln("2nd angle: ",b);
writeln("3rd angle: ",c);
end.
Возможно, где-то ошибся (сильно не винить) - смысл останется понятным.