делится ли число на 4 Опции

[Гость_Max]

Необходимо составить программу в том числе условие задачи которая должна содержать функцию и процедуру.
И помогите решить задачу вот условие:
Выяснить делится ли число, вводимое с клавиатуры на 4 без остатка.

Сообщение отредактировано: мисс_граффити - 13.06.2007 10:14

[Бродяжник]

Код

program mod4;

procedure getValue(var x: integer);
begin
  write('Input integer number: ');
  readln(x);
end;

function isOK(x: integer): boolean;
begin
    isOK := ((x mod 4) = 0);
end;

var myValue: integer;
begin

 getValue(myValue);

 if isOK(myValue)
    then writeln('Yesss!')
    else writeln('No!');

end.

;) :P :D :yes: