Предмет: Информатика,
автор: диск
Алгоритм разветвления. Составить алгоритм, который проверяет, делится ли на три целое число, введенное с клавиатуры (возможно использование оператора mod – остаток от деления двух чисел).
Ответы
Автор ответа:
0
(если сумма цифр числа делится на 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.
Интересные вопросы
Предмет: Химия,
автор: Аноним
Предмет: Русский язык,
автор: Dropbled1467
Предмет: Информатика,
автор: latifovaamina
Предмет: Геометрия,
автор: Gulmira93