Var A,B: integer; begin writeln("Введите А"); readln(A); writeln("Введите B"); readln(B); if (A mod B = 0) then writeln("А кратно В"); else writeln("А некратно В"); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
