Дано целое число n. определите, кратна ли числу - вопрос №5472945 от thewitefox 18.03.2023 06:02

Question

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

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