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

[Гость_Max]

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

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

[klem4]

Вот тока зачем сюда ф-ции и процедуры непойму...

Код

var n:integer;
begin
   write('Введите число');
   readln(n);
   if n=0 then
    begin
         writeln('n=',0);
         readln;
         exit;
    end;
   if n mod 4 = 0 then
    writeln('Делится!') else
      writeln('Не делится');
end.

Сообщение отредактировано: klem4 - 22.12.2004 13:12