Решить на языке паскаль с операторами цикла while - вопрос №9686902 от DashaCat02 24.05.2023 13:09

Question

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

DashaCat02 · 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....