Составить программу осуществляемую перевод величин из радианы в градусную меру или...

Question

Составить программу осуществляемую перевод величин из радианы в градусную меру или наоборот.

Answer 1

Var
x: integer;
function R(n: integer): real;
begin
R:=n*3.14/180;
end;
begin
readln(x);
writeln(x, ' градусов = ', R(x), ' рад.');
end.