Question

надо составить программу по паскалю)
составить программу проверяющую утверждения, что сумма цифр введенного вами числа делится на 5. 

Answer 1

var
 n:intger;
begin
 readln(n);
 if n mod 5 = 0 then
  writeln('Число делится на 5 без остатка')
 else
  writeln('Число делится на 5 c остатком')
end.