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

2. Найти все двузначные числа, сумма квадратов которых делится на 17.

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

Question

Информатика

Лилюня

12 июня, 21:40

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

2. Найти все двузначные числа, сумма квадратов которых делится на 17.

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

+1

Ответы (1)

Знаете ответ на вопрос?

Линя · 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.