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

[Гость_Max]

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

Сообщение отредактировано: мисс_граффити - 13.06.2007 10: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 9:12

[Бродяжник]

Код

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:

[klem4]

Код

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:

Муахаха , ноль поставь :D :D !laugh:

[Бродяжник]

Код

...
procedure OnZeroInput(x: integer);
begin
 if x = 0 then
   begin
      writeln('Fatal Error: User performed illegal action and will be killed');
      halt;
   end;
end;
...

[volvo]

Закрыто - несоблюдение правил форума...