Paskal abc составить таблицу

Question

Paskal abc составить таблицу

---

Answer 1

Как-то так

const x0=0; x1=180; dx=1;
var x:real;
begin
x:=x0;
while x<=x1 do<br>begin
writeln(x,' ',x/180*pi);
x:=x+dx;
end;
end.