Решить на языке паскаль с операторами цикла while и repeat: напечатать положительные значения y=sin x, если x=1, 2, . 40 , заранее .
nizyulkoelena
2
04.10.2019 08:31
0
Другие вопросы по теме Информатика
Ильха1
23.02.2022 03:20
NastyaMeow05
23.02.2022 03:39
OsamuDazai
23.02.2022 03:54
bonbino1
19.07.2019 21:10
lev2121
19.07.2019 21:10
Lukasheva1928
15.12.2020 09:44
Доминика671554
15.12.2020 09:43
andriybiguniak2
11.05.2021 11:49
Популярные вопросы
- Тело массой 600г подвешено к цепочке из двух параллельных пружин с коэффициентами...
2 - 10целых10/17-(х+2/17)=8целых9/17 х-4целых3/23=2целых22/23...
3 - 1.біологічне значення ретикулярної формації таламуса та інших підкіркових утворень...
1 - Какую сумму будет иметь вкладник на своем счету через 2 года после внесение в...
3 - было ли развитие западного мира 1950 -1960 х гг. интенсивным или экстенсивным?...
1 - Волна распространяется со скоростью 30 м\с .длина волны равна 1,5 м .определите...
3 - Последовательность (un), членами которой являются: а) записаны по нарастанию...
3 - Какова причина возникновения силы архимеда? ?...
2 - От слова взгляд образовать однокоренные слова-другие части речи. затрудняюсь...
2 - Y=2cosx-16x+9 найти min и max на промежутке [-3п/2; 0] у меня получается: y =...
3
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
begin
y:=sin(x);
if y>0 then writeln('x = ',x,' y = ',y:0:3);
x:=x+1
end
end.