1. 

   alfer New Member

   Помогите!!Дано трёхзначное число, определить кратна ли сумма его цифер числу а. Число 123, а=5

    

   alfer, 13 фев 2010

   #1
2. 

   Ирина777 New Member

   Begin
   read(n,a);
   for i:= 1 to 3 do
   begin
   summ := summ + n mod 10;
   summ := summ div 10;
   end;
   if summ mod a = 0 then write('кратно') else write('не кратно');
   end.

    

   Ирина777, 13 фев 2010

   #2

Ваше имя или e-mail:

Пароль:

Забыли пароль?

Запомнить меня