Решить на языке паскаль с операторами цикла while - вопрос №9687127 от JakeNJacks 25.12.2021 09:07

Question

Информатика: Решить на языке паскаль с операторами цикла while и repeat: напечатать положительные значения y=sin x, если x=1, 2, . 40 , заранее .

JakeNJacks · Answer

var x,y:real;beginx:=1;repeaty:=sin(x);if y 0 then writeln( x = ,x, y = ,y:0:3);x:=x+1until x=11;writeln;x:=1;while x 11 dobeginy:=sin(x);if y 0 then writeln( x = ,x, y = ,y:0:3);x:=x+1endend....