По данному числу n вычислите сумму 2(1-1/3+1/5-1/7++(-1)n/(2n+ формат входных данных: вводится одно число n, не превосходящее 100000. формат выходных данных: необходимо вывести значение выражения

Ответы

Program zadacha1; var n: longint; i: integer; r, a: real; begin write('n = '); readln(n); if n > 100000 then writeln('ошибка! ') else begin r : = 0; for i : = 0 to n do begin r : = r + a; a : = (1 - (i and 1) shl 1) * (1 / abs(i * 2 + 1)); end; writeln('результат: ', r); end; readln; end.

Спасибо

Ответ дал: Гость

архитектор - для моделирования чертежей на компьютере !

врач - картатека всех больниц хроницца в компьютере

бизнесмен - зновать последнии новости в интернети с компьютера

бухгалтер - расчёты с компьютера

композитор - с компьютера и специальных программ может прослушивать свои произведения и доробатовать их

секретарь - записывает в компьютер все важные зделки

писатель - пишет на компьютере свои произведения ( удобно если что то не понравилось удалил и переделал ! и не надо портить бумагу

художник - берёт шаблоны с компьютера и перересовывает их на холст

модельер - моделирует платья на компьютере

програмист - пишет программы , а пользователь пользуется программами написаноми программистами !

Ответ дал: Гость

var s : string; k,f : longint; begin readln(s); val(s[1],k,f); if f< > 0 then writeln('некоректно введена строка') else if length(s)-1=k then writeln('равно') else writeln('неравно'); end.