Среди двузначных чисел найти те, сумма квадратов цифр которых делится на13
Среди двузначных чисел найти те, сумма квадратов цифр которых делится на13
Гость
Ответ(ы) на вопрос:
Гость Var i,a,b,c:integer;
Begin
For i := 10 to 99 do
begin
a:=i div 10;
b:=i mod 10;
c:= a*a+b*b;
if c mod 13=0 then
writeln(i);
end;
End.
Не нашли ответ?
Похожие вопросы