Дано четырехзначное число. определить: кратно ли произведение его цифр числу а.

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

1 simvol zanimaet 1 bait(tak kak imeem tekst);

tekst shpargalki sostavliaet 50*50=2500 simvolov-2500 bait.

da + eshe 0,3*2500=750.

vsego 2500+750=3250 bait.

    1 способ                                             2 способ

х чаек - на первом острове                 х чаек - на первом острове

у чаек - на втором острове                   79-х чаек - на втором острове

х+у=79               х+у=79                         х-15-12=79-х+12

х-15-12=у+12     х-у=39                          2х=118

                        2х=118                           х=59

                        х=59                               79-59=20

                        у=20

ответ: на первом острове 59 чаек, на втором - 20 чаек.