Переписать, исправив ошибки в программе:
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.
Переписать, исправив ошибки в программе:
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.
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.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Program Primer;
Var x: real;
Begin
x:=0;
While x <= 3.1 do
begin
x:=x+0.1;
Y:= sin(x);
Writeln(x,y);
End;
End.