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

Question

Информатика

Валера

20 марта, 05:28

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

+3

Ответы (1)

Знаете ответ на вопрос?

Мика · Answer 1

(если сумма цифр числа делится на 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.