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

diamond31 diamond31    2   21.06.2019 10:20    0

Ответы
master204 master204  16.07.2020 23:20
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. 
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика