Автор: Anton

Anton — Mon, 11 Jan 2016 05:04:13 +0000

Поправил
Было:

Function Even(K:Integer):Boolean;
begin
 if not(odd(k)) then Even:=True
 else Even:=False;
end;

Function Even(K:Integer):Boolean;

begin

if not(odd(k)) then Even:=True

else Even:=False;

end;

Стало:

Function Even(K:Integer):Boolean;
begin
 Even:=not(odd(k));
end;

Function Even(K:Integer):Boolean;

begin

Even:=not(odd(k));

end;

Автор: olegst1975

olegst1975 — Sun, 10 Jan 2016 22:12:56 +0000

не нужен оператор сравнения — строки 5-6

[crayon-69603d0052a2c983374195 inline="true" ]
 Even:=not(odd(k));

1 2	[crayon-69603d0052a2c983374195 inline="true" ] Even:=not(odd(k));

[/crayon]