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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
