Pascal while дано натуральное n. вычислить: в)1/sin1+1/sin1+sin2++1/sin1++sin(n).
salta19
3
08.10.2019 05:20
0
Другие вопросы по теме Информатика
AnnaXolcman3003
03.08.2019 13:40
Evklidushka
10.10.2021 03:14
soffffa0790
10.10.2021 03:24
аня2933
10.10.2021 03:25
Новоселова1Лиза
10.10.2021 03:29
Mozgi1706
10.10.2021 03:31
Vanomasssss
21.09.2019 01:40
greghs
21.09.2019 01:40
Zolotareva1981
21.06.2019 16:20
Популярные вопросы
- Стестом. 1. что состоит из атомов? а) только вода б) только воздух в) только...
2 - Склади й запиши реченя. жили в лиси,осинього дня,сухе листя,вимостити гниздечко,принисти...
1 - Масса раствора h2so4 300 гр, w10%.найти массу h2so4 , , заранее ))...
2 - Какие в сказке белоснежка и семь гномов...
2 - Катер за 2 часа по озеру и за 3 часа против течения реки проплывает такое...
1 - Напишите предложение со словами принять решение...
1 - Пример: 2дм-5см=20см-5см=15см вопрос: 32дм+7дм=?...
1 - Что обозначает указать в предложении связь слов...
3 - Вяком процесі відбувається злиття клітин?...
2 - Какие часы были самые первые в индии...
2
var b, a: integer;
sum: real;
Begin
ReadLn(a);
b:=1;
sum:= 0;
while (b<=a) do
Begin
sum := sum+1/sin(b);
b:=b+1;
end;
WriteLn(sum);
end.