1. Дано натуральное число n. Переставить его цифры так, чтобы образовалось максимальное...

Question

1. Дано натуральное число n. Переставить его цифры так, чтобы образовалось максимальное число, записанное теми же цифрами.
2. Найти все двузначные числа, сумма квадратов которых делится на 17.

Всё это нужно сделать в программе Паскаль, но КАК?!

Comments

во втором задании непонятно: попарно перебирать все двузначные числа или в одном числе рассматривать его цифры?

---

Разные числа

Answer 1

1. uses crt;
const m=8;
var n,i,b,c,p,k:integer;
a:array[1..m] of integer;
begin
readln(n);
b:=n;
k:=1;
repeat
c:=b mod 10;
a[k]:=c;
b:=b div 10;
inc(k);
until b=0;
repeat
p:=0;
for i:=1 to k-1 do
if a[i]begin
p:=1;
a[i]:=a[i]+a[i+1];
a[i+1]:=a[i]-a[i+1];
a[i]:=a[i]-a[i+1];
end;
until p=0;
for i:=1 to k-1 do
write(a[i]);
end.
2. uses crt;
const n=99;
var i,j:integer;
begin
for i:=10 to n do
for j:=10 to n do
if ((i*i+j*j)mod 17=0) then write(i,' ',j,'   ');
end.

Comments

а в первом задании константа М = 8, это к чему?

---

сколько разрядов максимум может быть в числе