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

Задание:

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

Решение:

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.

Знаете другой ответ?

Отправить свой ответ