program z; var i,a,a1,s:integer; begin writeln('Двухзначные числа, квадрат суммы цифр которых делится 13'); for i:=10 to 99 do begin a:=i; s:=0; while a<>0 do begin a1:=a mod 10; s:=s+a1; a1:=a div 10; a:=a1; end; if sqr(s) mod 13=0 then writeln(i); end; end.
Answers & Comments
program z;
var i,a,a1,s:integer;
begin
writeln('Двухзначные числа, квадрат суммы цифр которых делится 13');
for i:=10 to 99 do
begin
a:=i;
s:=0;
while a<>0 do
begin
a1:=a mod 10;
s:=s+a1;
a1:=a div 10;
a:=a1;
end;
if sqr(s) mod 13=0
then
writeln(i);
end;
end.