Question

вводится четырехзначное число. если оно четное или кратно 7, то вывести сумму цифр этого числа. иначе - вывести произведение цифр. ПАСКАЛЬ

Answer 1

Ответ:

program aaa;

var

 numb,s,mult: integer;

begin

 read(numb);

 if (numb mod 2 = 0) or (numb mod 7 = 0)then

   begin

      while numb > 0 do

   begin

      s := s + numb mod 10;

      numb := numb div 10;

    end;

      writeln(s);

 end

    else

     

   mult := 1;

   while numb > 0 do

begin

       mult := mult * (numb mod 10);

       numb := numb div 10

   end;

  writeln(mult);

 

 

end.

Объяснение: