Функция проверки числа на четность на Pascal

Функция проверки числа на четность...

function Even(x: integer): boolean;
begin
  Result := x mod 2 = 0
end;
 
begin
  writeln(Even(3));
  writeln(Even(4));
  writeln(Even(7));
end.



Просмотров: 2386
10.02.2015, 10:28 -

Категория: Статьи » Программирование » Pascal