Pascal - нужна помощь

Какую? Пиши условия

Ну всё, тиксимиес накамгада

Не легче http://google.ru ( Самообучение )

а точно Рил должно быть? я просто не помню точно, но мы такие вещи через integer писали

eps := ...;
k := 1;
S: = 0;

while (abs(k) > eps) do begin
{
    S := S + ( pow(-1, k) / (k*k) );
    k := k + 1;
};

я не помню синтаксис Паскаля, но суть отображена
pow - возвести число в степень - не уверен есть ли такое в Паскале, но можно реализовать при помощи for цикла
abs - модуль чилса или абсолютное значение; если нет ф-ии, то делаем проверку на <0 и умножаем на -1

В программе всего 2 места где происходит деление:
и


В обоих случаях деление происходит на целое число - потому что k:Integer, а sqr() вычисляет квадрат k. Таким образом может казаться, что деление на ноль происходить не может - потому что в основном блоке программы k начинается от 1 и потом только увеличивается в цикле (на +1 при каждой итерации).

Паскаль имеет свою особенность - у всех типов есть максимальное значение. Для Integer - диапазон, кажется, -32768..32767. Если в какой-то момент значение k равно 32767 и к нему прибавляется еще 1, то получается -32768 (то есть как бы начинается отстчет от другого конца диапазона). При последующем увеличении значения в цикле - каждый раз на 1 - отрицательные значения k увеличиваются и достигают нуля. В этот момент происходит деление на ноль.

Скорее всего неправильно задано условие прерывания цикла и он продолжается дольше, чем было задумано. Нужно проверить - при помощи вывода всех значений, как и было предложено.

Возможно также отключить "функцию" Паскаля, которая превращает 32767 + 1 в -32768. Нужно задать какую-то специальную директиву компилятору (ищи в гугле по "arithmetic overflow").

иф переполнение зен врайтлн("сорри, облом")

Смогу конечно, только зачем мне  это?
Что мне за это будет?

А задача элементарная, и отнюдь не капец.

смотря что, в прошлом году в РТУ лабы делал, но знаю мало))

program check;
uses crt;
var b,res:integer;
begin
  clrscr;
  b:=2+2;
  repeat
    writeln('Чему равно 2+2: ');
    readln(res);
    if b<>res then begin
      writeln('Неправильно');
    end;
  until b=res;
  writeln(res,'-правильный ответ');
  readkey;
end.