1. 

   Чижик-Пыжик New Member

   найти сумму двузначных положительных чисел сумма цифр которых кратно 7. (паскаль)

    

   Чижик-Пыжик, 17 фев 2010

   #1
2. 

   Sam_foe New Member

   Program Summa;
   var
   n,
   l,
   a: integer;
   m: integer;
   b: integer;
   k: integer;
   begin
   Readln(n);
   Readln(l);
   a:=n div 10;
   m:=l div 10;
   b:=n mod 10;
   k:=l mod 10;
   if (a+b) mod 7=0 then write(n,' ');
   if(m+k) mod 7=0 then write(n+l);
   End.
   Попробуй

    

   Sam_foe, 17 фев 2010

   #2

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

Пароль:

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

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