Предмет: Информатика,
автор: диск
Алгоритм разветвления. Составить алгоритм, который проверяет, делится ли на три целое число, введенное с клавиатуры (возможно использование оператора 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.
Похожие вопросы
Предмет: Литература,
автор: oksanavasilinenko2
Предмет: Химия,
автор: Jaimes
Предмет: Математика,
автор: taraskovdima
Предмет: Алгебра,
автор: kentuha