Дмитрий Самодумов
Дмитрий Самодумов

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

Анечка
Анечка

В следующий раз язык указывай!
for (int i = 10; i < 100; i++)
{
int first = (i % 10) * (i % 10);
int second = ((int)(i / 10)) * ((int)(i / 10));
if ((first + second) % 13 == 0) Console.WriteLine(i.ToString());
}
паскаль
program cool;
var i:Integer;
first, second: Integer;
begin
for i:=10 to 99 do
begin
first:=(i mod 10)*(i mod 10);
second:=Trunc(i/10)*Trunc(i/10);
if (first + second) mod 13 = 0 then writeln(i);
end;
end.

НК
Нина Котахова

легко

13
26
39
52
65
78
91

Похожие вопросы
Закончите предложение 1) Если сумма цифр числа делится на.. . то и число делится на 9 (2) Если сумма цифр числа делится н
паскаль. определить, равен ли квадрат заданного четырехзначного числа кубу суммы цифр этого числа
Pascal abc. Дано двузначное число, программа должна вычислить совпадает сумма квадратов цифр числа с квадратом числа
Дано целое четырехзначное число. Найти сумму его цифр. Найти сумму его цифр.
10. Найти все четырехзначные числа, у которых сумма крайних цифр равна сумме средних цифр, а само число делится на 6 и 2
Найти четырехзначные числа, каждое из которых делится на 11 и сумма цифр каждого равна 11
Некоторое двузначное число на 18 больше суммы его цифр, а квадрат этого числа на 612 больше квадрата его цифры десятков
подскажите, пожалуйста, как написать в vba сумму квадратов цифр заданного числа n
Сумма квадратов цифр двузначного числа равна 50.
найти количество всех двузначных чисел сумма квадратов цифр которых кратна 13