Question

ДАЮ 50 БАЛІВ ПЖ ДУЖЕ ТЕРМІНОВО В Паскалі Дано ціле трьохзначне число.
Визначте, чи кратна п’яти сума його цифр.

Answer 1

program CheckSumDivisibleByFive;

var

number, digitSum: integer;

begin

// Введення трьохзначного числа

write('Введіть трьохзначне число: ');

readln(number);

// Обчислення суми цифр числа

digitSum := (number mod 10) + ((number div 10) mod 10) + (number div 100);

// Перевірка, чи є сума цифр кратною п'яти

if digitSum mod 5 = 0 then

writeln('Сума цифр числа є кратною п\'яти')

else

writeln('Сума цифр числа не є кратною п\'яти');

readln;

end.