1 Востаннє редагувалося skelet3333 (11.11.2014 19:40:45)

Тема: Помилка - exitcode 201 pascal!!!

Будь ласка допоможіть!!!! Видає таку помилку exitcode 201!
Free Pascal!


program D;
var i,j:integer;
n:longint ;

begin
readln(n);
j:=0;
for i:=1 to n do
begin
  if ((i mod 2 <> 0) and (i mod 3 <> 0) and (i mod 5 <> 0))
  then j:=j+1;
end;
writeln(j);
readln;
end.

2

Re: Помилка - exitcode 201 pascal!!!

http://www.freepascal.org/docs-html/user/userap4.html

201 Range check error
If you compiled your program with range checking on, then you can get this error in the following cases:
An array was accessed with an index outside its declared range.
Trying to assign a value to a variable outside its range (for instance an enumerated type).

Оскільки масивів немає, тут явно другий випадок: спроба надати змінній значення за межами її діапазону. longint може бути значно більшим за integer, а у вас цикл від 1 до якогось longint.

Подякували: skelet33331

3

Re: Помилка - exitcode 201 pascal!!!

Приєднусь до Коали - при яких даних у вас вискакує помилка? Може ви вводите n велике дуже?

Мій блог про ОС сімейства *nix - http://nixtravelling.blogspot.com/
Подякували: skelet33331