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

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

Задать свой вопрос
1 ответ
program bacterya;
var i, n:integer;
begin
for i:=10 to 99 do
if ((i div 10)*(i div 10)+(i mod 10)*(i mod 10)) mod 16=0 then writeln(i);
end.
Ответ: 40, 44, 48, 80, 84, 88
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт