Переписать, исправив ошибки в программе: Program Primer; Var x,y : integer; Begin X=0;...

Question

Переписать, исправив ошибки в программе: Program Primer; Var x,y : integer; Begin X=0; While x >= 3.1 do begin Y:= sin(x); Writeln(x,y); X:=x+0.1; End; End.

Answer 1

Program Primer;

Var x, y : real;

Begin

X:=0;

While x >= 3.1 do  

begin

Y := sin(x);

Writeln(x,y);

X:=x+0.1;

End;

End.