СРОЧНО ПОМОГИТЕ ДАЮ ЗА ВЫПОЛНЕНИЕ 77 БАЛЛОВ надо сделать в паскале программу: если число...

Question

СРОЧНО ПОМОГИТЕ ДАЮ ЗА ВЫПОЛНЕНИЕ 77 БАЛЛОВ надо сделать в паскале программу: если число делиться на 5, то выведите целую часть от деления

Answer 1

var

 n: Integer;

begin

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

 ReadLn (n);

 if n mod 5 = 0 then         // проверка делимости на 5

   Writeln ('Целая часть от деления на 5 = ', n div 5)  // вывод целой части от деления

 else

   Write ('Число не делится на 5 без остатка');

end.