Алгоритм разветвления. Составить алгоритм, который проверяет, делится ли на три целое число, введенное с клавиатуры (возможно использование оператора mod – остаток от деления двух чисел).

Question

Алгоритм разветвления. Составить алгоритм, который проверяет, делится ли на три целое число, введенное с клавиатуры (возможно использование оператора mod – остаток от деления двух чисел).

Гость

Ответ(ы) на вопрос:

Accepted Answer

(если сумма цифр числа делится на 3, то число делится на 3 нацело) var a, s: integer; begin s:=0; writeln ('Введите число'); while a<> 0 do begin a:= a mod 10 S:=s+a; end; if S mod 3 = 0 then writeln ('делится') else writeln ('не делится'); end.