Pascal

[Valeralmet 0]

Дана последовательность чисел

2/1+4/2+8/3+...+(2^n)/n, где n - задаётся пользователем.

Вывести на экран каждое значение и номер элемента, вычислить сумму элементов у которых числитель делится без остатка на знаменатель.

Пожалуйста помогите, очень нужно.. завтра экзамен

[Sersmi 0]

Встречная просьба.

 

Не могу сделать рундат, фляг, темп, фляг двойное заднее. Никак не получается. Поможешь мне и я помогу тебе!!

[Valeralmet 0]

шутник мля.. люди помогите пожалуйста!!

[creker 0]

Такое пойдет?

uses crt;var n, i, sum : integer;	pow : longint;	el : real;beginpow := 2;sum := 0;TextColor(7);write('Enter N: ');readln(n);writeln('');for i := 1 to n dobegin	 el := pow/i;	 if (frac(el) = 0) then	 begin		  sum := sum + trunc(el);		  TextColor(12);	 end;	 writeln(i, ': ', pow, '/', i, ' =', el);	 pow := pow * 2;	 TextColor(7);end;writeln('');writeln('Sum = ', sum);readkey;clrscr;end.

 

ЗЫ какой же ужас писать на паскале, после нормальных языков чувствую себя инвалидом.