Задание:
Алгоритм разветвления. Составить алгоритм, который проверяет, делится ли на три целое число, введенное с клавиатуры (возможно использование оператора mod –остаток от деления двух чисел).
Решение:
(если сумма цифр числа делится на 3, то число делится на 3 нацело) var a, s: integer; begins: =0; writeln ('Введите число'); while a<> 0 dobegina: =a mod 10 S: =s+a; end; if S mod 3=0 then writeln ('делится') elsewriteln ('не делится'); end.
Знаете другой ответ?