Переписать, исправив ошибки в программе:
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.
Ответы
Ответ дал:
0
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.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад