Дано целое число n. определите, кратна ли числу - вопрос №5472268 от FoxEdit 02.09.2022 05:07

Question

Информатика: Дано целое число n. определите, кратна ли числу к сумма цифр в числе.

FoxEdit · Answer

Program zadacha;varN,s,a : longint;beginwriteln( vvedite chislo: );readln(n);writeln( vvedite k );readln(a);s := 0;while n 0 dobegins := s + (n mod 10);n := n div 10;end;if (s mod a) = 0 thenwriteln( kratna )elsewriteln( net );end....