Переписать, исправив ошибки в программе: 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.

Почтиматематик2894 Почтиматематик2894    3   30.09.2019 09:00    0

Ответы
pRoToTyPe95wF pRoToTyPe95wF  09.10.2020 05:04

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика