Вычислите сумму первых n элементов 1-1/2+1/3-1/4+1/5-1/6+
Propert
1
06.03.2019 22:10
0
Другие вопросы по теме Информатика
gulzanauelbekov
10.09.2019 23:18
kseniya696969
10.09.2019 23:06
irkaveerova
10.09.2019 23:05
Анаша2018
14.05.2020 07:49
yulaha3010oxppqh
14.05.2020 07:49
Aann1
14.05.2020 07:49
Популярные вопросы
- 20 1. ответьте на вопросы, выбрав 1 правильный ответ из четырех предложенных....
3 - Определите оптическую силу и фокусное расстояние линз для очков дальнозоркого...
2 - Вычислите молярную концентрацию эквивалента раствора гидроксида калия, если...
2 - To work wonderes to be a lit as a fiddle сделать условные предложение (conditionals)в...
2 - Пунктуационный разбор предложение : хватаешься за фотоаппарат но уже поздно....
1 - Які події доби зображено на них? назвіть події що передували зображеним. уявіть...
2 - Твір на тему: я в образі учасника чорної ради ....
2 - Напишите ответ на такой билет: формирование навыков словообразования и словоизменения...
2 - Завтра по практическая. не обижу … просто умаляю...
3 - 18 y-y-10=14 1 строка 17y-10=14 2 строка 17y=24 3 строка y=1724 где ошибка...
2
var i,n,s:nteger;
BEGIN
read(n);
for i := 1 to n do
if i mod 2 = 0 then s:= s-1/i;
else s:= s+1/i;
writeln(s);
END.