Дано трехзначное число.Кратна ли 5 сумма его чисел.НАДО СДЕЛАТЬ ЧЕРЕЗ ПРОГРАММУ...

Question

Дано трехзначное число.Кратна ли 5 сумма его чисел.НАДО СДЕЛАТЬ ЧЕРЕЗ ПРОГРАММУ ПАСКАЛЬ(написать программу) помогите плиз

Answer 1

Var a, sum : integer;
begin
readln(a);    - считываем данное число
sum := (a div 100) + ((a mod 100) div 10) + (a mod 10); - сумма цифр
if (sum mod 5 = 0) then writeln('yes') else writeln('no'); - проверка делимости на 5
end.