Var n,i,a: integer; p: longint; begin write('введите четырехзначное число: '); read(n); write('введите число для проверки кратности: '); read(a); p: =1; for i: =1 to 3 do begin p: =p*(n mod 10); n: =n div 10 end; p: =p*n; if (p mod a)=0 then writeln('число кратно ',a) else writeln('число не кратно ',a) end. тестовое решение: введите четырехзначное число: 3673 введите число для проверки кратности: 7 число кратно 7
Спасибо
Ответ дал: Гость
+2): 3+4): 5+6): 7+8): 9=1
Ответ дал: Гость
1 способ.
сначала переправляются мальчик и взрослый. потом этот же мальчик оотправляется обратно и переправляет второго взрослого. а затем мальчик возвращается, берёт второго мальчика, и они плывут на другой берег.2 способ.
сначала взрослый и мальчик переправляются через реку. обратно плывёт мужчина. потом этот мужчина берёт второго мальчика и они вместе переправляются через реку. мальчик плывтобратно и вместе со вторым мужчиной переплывет на второй берег реки. вот и всё.
Популярные вопросы