19.10.2013, 00:34
|
 |
LMD-DML
|
|
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
|
|
Нарушение ПФ п.п. 2.4, 2.8 детектед 
Замените
Код:
...
if (j+i)>100 then
begin
if i>j then begin
i:=i-j;
end;
end;
if (j+i)>100 then
begin
if j>i then begin
j:=j-i;
end;
end;
... на
Код:
...
if (j + i) > 100 then if i > j then i:= i - j else j:= j - i;
... |