Дано целое число n. определите, кратна ли числу к - вопрос №5472443 от seniorkovalyov 13.08.2022 05:12

Question

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

seniorkovalyov · 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....