Решить задачу ** языке Паскаль с операторами цикла While и Repeat:Напечатать...

Question

Решить задачу на языке Паскаль с операторами цикла While и Repeat:Напечатать положительные значения Y=sin X, если X=1, 2, 3,...,10.Даю 40 баллов, заранее спасибо.

Answer 1

var x,y:real;

begin

x:=1;

repeat

y:=sin(x);

if y>0 then writeln('x = ',x,' y = ',y:0:3);

x:=x+1

until x=11;

writeln;

x:=1;

while x<11 do</p>

begin

y:=sin(x);

if y>0 then writeln('x = ',x,' y = ',y:0:3);

x:=x+1

end

end.