Функция проверки числа на четность на Pascal
Функция проверки числа на четность...
function Even(x: integer): boolean;
begin
Result := x mod 2 = 0
end;
begin
writeln(Even(3));
writeln(Even(4));
writeln(Even(7));
end.
10.02.2015, 10:28 -
Категория: Статьи » Программирование » Pascal