Ответ 2 , так как последующие ответы не подходят
Var n,i,j,k,s,sn:integer;
begin
writeln('n = ');
readln(n);
sn:=round(sqrt(n));
for i:=1 to sn do
for j:=1 to sn do
for k:=1 to sn do
begin
s:=i*i+j*j+k*k;
if s=n then writeln(i,'^2+',j,'^2+',k,'^2 = ',s);
end;
end.
Пример:
<span>n = 253
3^2+10^2+12^2 = 253
3^2+12^2+10^2 = 253
10^2+3^2+12^2 = 253
10^2+12^2+3^2 = 253
12^2+3^2+10^2 = 253
12^2+10^2+3^2 = 253</span>
K = 0;
while (t > 0){
d = t mod 10;
if(d mod 2 == 0){k++; t = t div 10;}
else {t = t div 10;}
}
t - входное число
Получится <span>for i:=1 to 100</span><span>
</span>