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