Реализация блок-схемы - Четное ли число? - Turbo Pascal

Формулировка задачи:

program chet;
uses crt;
var n,s:real;i:integer;
begin
   clrscr
   write('Введите n   ');
   readln(n);
   S:=0;
   i:=0;
   repeat
    i:=i+1;
      begin
        if i mod 2=0
        then s:=s-1/(2*i) 
        else s:=s+1/(2*i);
      end;
until i=n;
if s>0
then write('Четное')
else write('Нечетное');
end.

Что-то не получается никак( Что неправильно?

Решение задачи: «Реализация блок-схемы - Четное ли число?»

textual
                            Листинг программы 
                        

                            program chet;
uses crt;
var n,s:real;i:integer;
begin
clrscr;
write('Введите n=');
readln(n);
S:=0;
i:=0;
repeat
i:=i+1;
if i mod 2=0 then s:=s-1/(2*i)
else s:=s+1/(2*i);
until i=n;
write('Summa=',s:0:4);
readln
end.
                        

Оцени полезность:

15 голосов , оценка 3.867 из 5

Похожие ответы