Var N,M:integer; Begin Write('N = ');ReadLn(N); Write('M = ');ReadLn(M); if N mod M = 0 then WriteLn(N,' кратно ',M) else WriteLn(N,' не кратно ',M) End.
КОМПЬЮТЕРНЫЙ ГОРОД. Жарким августовским днем, изнывая от жары, Митя сидел дома под вентилятором и играл в компьютерные игры. Но компьютер не выдержал нагрузки, тут на экране компьютера сверкнула яркая вспышка, и Митя оказался в новом неизведанном измерении. Его окружали холмы, переплетенные дорожки. Впереди виднелся город, и Митя пошел туда, чтобы узнать, как ему вернуться домой. В городке Митя повстречал много человечков, которые суетливо бегали из одного здания в другое, перенося на себе много информации. Митя попытался спросить у них дорогу, но они не могли останавливаться и разговаривали на ходу: - Извини, дружище, мы не можем с тобой разговаривать, у нас большая поломка. - Какая? – поинтересовался Митя. - Дело в том, что сломался главный вентилятор и охладительные системы. Поэтому нам приходится вручную переносить всю информацию, чтобы ее сохранить. А это непростая работа. - Да, вам, наверно, нелегко приходится! Может, я смогу чем-нибудь Нам пригодится твоя и сила. Надо отремонтировать дорогу от охладительной системы до главного вентилятора. - Хорошо, покажите, где это находится. Придя к месту поломки, Митя увидел, что стык дороги с вентилятором разорван. НУ, что ж, приступим за работу. Взяв лопату, Митя стал засыпать яму. Мите пришлось поработать на славу, закончив, он нажал на кнопку старта вентилятора. Подул прохладный ветерок. От прохлады Митя очнулся у себя дома в кресле перед компьютером. Мите подумалось: «Приснится же такое!»
Логические знаки не дает вставлять - пишу их союзами и частицами подчеркнутыми. 1) Число 376 четное и трехзначное. А = "Число 376 четное" В = "Число 376 трехзначное" А и В 2) Неверно, что Солнце движется вокруг Земли. А = "Солнце движется вокруг Земли" Не А 3) Земля имеет форму шара. А = "Земля имеет форму шара" А 4) На уроке математики старшеклассники отвечали на вопросы учителя и писали самостоятельную работу. А = "На уроке математики старшеклассники отвечали на вопросы учителя" В = "На уроке математики старшеклассники писали самостоятельную работу" А и В 5) Если сумма цифр числа делится на 3, то число делится на 3. А = "Сумма цифр числа делится на 3" В = "Число делится на 3" А стрелка к В 6) Число делится на 3 тогда и только тогда, когда сумма цифр числа делится на 3 А = "Число делится на 3 " В = "Сумма цифр числа делится на 3" А стрелка в обе стороны В
Begin
Write('N = ');ReadLn(N);
Write('M = ');ReadLn(M);
if N mod M = 0 then WriteLn(N,' кратно ',M)
else WriteLn(N,' не кратно ',M)
End.