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

Есть ответ
17.12.2022
217

Ответ


Program Summa;varn,l,a: integer;m: integer;b: integer;k: integer;beginReadln(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.

Попробуй


Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
17.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.