Предмет: Информатика,
автор: роялер
Дано трёхзначное число. Верно ли, что сумма цифр этого числа будет кратна 3? программа на пскаль
Ответы
Автор ответа:
0
// PascalABC.NET 3.2, сборка 1338 от 16.11.2016
begin
Writeln(ReadlnString('n=').ToIntegers.Sum mod 3=0)
end.
Выводится True, если верно и False, если нет
Пример
n= 483
True
Замечание
Число может быть не обязательно трехзначным - количество цифр в нем не ограничено!
begin
Writeln(ReadlnString('n=').ToIntegers.Sum mod 3=0)
end.
Выводится True, если верно и False, если нет
Пример
n= 483
True
Замечание
Число может быть не обязательно трехзначным - количество цифр в нем не ограничено!
Интересные вопросы
Предмет: Французский язык,
автор: Аноним
Предмет: Английский язык,
автор: kirilkopa
Предмет: Математика,
автор: makarenkom291
Предмет: Биология,
автор: valentinkuvarzin
Предмет: Обществознание,
автор: 1z2z3z4z16