Вопрос по информатике:
1. Дано натуральное число n. Переставить его цифры так, чтобы образовалось максимальное число, записанное теми же цифрами.
2. Найти все двузначные числа, сумма квадратов которых делится на 17.
Всё это нужно сделать в программе Паскаль, но КАК?!
- 03.05.2018 00:17
- Информатика
- remove_red_eye 1344
- thumb_up 43
Ответы и объяснения 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]
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.
- 04.05.2018 11:01
- thumb_up 9
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.