Дано число n (> 0) найти сумму 1-0.5+0.25-0.125+ паскаль абс работа на использование цикла вайл, фор или рипит буду блогодарен
RickeyF2228
3
01.06.2019 20:20
2
Другие вопросы по теме Информатика
meow86
28.05.2021 16:26
дар70
28.05.2021 16:14
лололололлоло97
28.05.2021 16:12
knopendui
21.04.2021 12:22
ндо
21.04.2021 12:22
ЯнчикИлИоДуванчик
21.04.2021 12:21
masenkon524
19.05.2019 10:10
Tuna234
11.09.2019 17:00
Популярные вопросы
- Решите ! при каких значениях с верно: -с...
3 - Подчеркнуть гласные буквы.найти парный согласние. пришла зима.выпал пушистый...
2 - Як надавати першу медичну пораненому (4-5 речень)...
2 - 1.художник, строитель, доктор,учитель,швея,маляр. 2.учит,шьёт,лечит,красит,строит,рисует....
3 - Al → al2s3 → alcl3 → al(oh)3 → al2o3...
2 - Сколько существует частей речи? любой вопрос не удалю и вы меня не удалите...
2 - Каково значение искусственных и природных экосистем...
3 - Fe → fecl3 → fe(oh)3 → fe2o3 → fe2(so4)3...
2 - Где находится материк северная америка ? его омывают воды 3 океанов на севере...
2 - Простыми словами: : сильные кислоты это слабые кислоты это как их различить?...
3
s, k:real;
begin
k:=0.5;
writeln('vvedy n');
readln(n);
for i:=1 to n do
k:=k+(k*0.5);
s:=1-k;
writeln(s:5:5);
end.