Question

на PASKAL. Створити програму, яка буде визначати результат ділення числа на 4, якщо число не ділиться виводиться 0.​

Answer 1

Відповідь:

program DivideByFour;

var

 num, result: integer;

begin

 write('Введи число: ');

 readln(num);

 if num mod 4 = 0 then

 begin

   result := num div 4;

   writeln('Результат: ', result);

 end

 else

 begin

   writeln('Результат: 0');

 end;

 readln;

end.

Пояснення: