64

Найти все двузначные числа, квадрат суммы цифр которых делится на 15

belchezar 28 августа 2022

Найти все двузначные числа, квадрат суммы цифр которых делится на 15 (4 способа)

категория: информатика

39

program z; var i,a,a1,s: integer; beginwriteln ('Двухзначные числа, квадрат суммы цифр которых делится 13'); for i: =10 to 99 dobegina: =i; s: =0; while a<>0 dobegina1: =a mod 10; s: =s+a1; a1: =a div 10; a: =a1; end; if sqr (s) mod 13=0thenwriteln (i); end; end.

пользователи выбрали этот ответ лучшим

Знаете другой ответ?
Другие вопросы по информатике

ПОПУЛЯРНОЕ
Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...