Данная задача состоит из двух подзадач:
Определить цифры, из которых состоит число.
Отсортировать их в порядке возрастания.
Поскольку стоит вопрос о сортировке, то уместно цифры числа помещать массив. Цифры из заданного числа извлекаются путем последовательного нахождения остатка от деления на 10.
const N = 10;
var
arr: array[1..N] of byte;
m: longint;
i, j, k, b: byte;
begin
readln(m);
k := 0;
while m > 0 do begin
k := k + 1;
arr[k] := m mod 10;
m := m div 10;
end;
for i:=1 to k-1 do
for j:=1 to k-i do
if arr[j] > arr[j+1] then begin
b := arr[j];
arr[j] := arr[j+1];
arr[j+1] := b;
end;
for i:=1 to k do
write(arr[i],' ');
writeln;
end.
Объяснение:
общение в интернете весьма разнообразно на данный момент.
электронная почта - самый базовый вид общения. без нее в интернете никуда, ведь она требуется для большенства регистраций на всевозможных сайтах и ресурсах. а так же является простым и удобным способом обмена информацией и файлами, а так же хранения онных. правда, чтоб написать кому-то, вам надо знать его электронный адрес
чаты - способ быстрого обмена короткими текстовыми сообщениями с одним и более людьми, как знакомыми так и нет.
instant messengers (icq,jabber,mns, - гибрид электронной почты и чата. быстрый обмен короткими текстовыми сообщениями с уже знакомым собеседником или с тем кому вы дали свой номер для связи. так же позднее добавилась возможность обмена файлами, голосовое и видео общение, но основной принцип все тот же.
блоги, форумы, дневники - опять таки гибрид электронной почты и чата. тут уже сообщения не короткие, как раз надо изложить информацию как можно более удобно для чтенья, добавить картинки, видео, музыку. а увидеть ваши опусы может кто-угодно и даже имеет возможность оставить обстоятельный комментарий
социальные сети (vk,odnoklassniki, - это некий вариант im, который хочет с вас снять завесу анонимности. тут вы можете искать людей, с которыми уже сталкивались в реальной жизни и общаться с ними. как более поздний вариант общения, старается обьеденить в себе все черты предыдущих, хотя порой этого делать не стоит
Поделитесь своими знаниями, ответьте на вопрос:
Создайте массив, содержащий 15 различных символов. отсортируйте его по убыванию. после этого определите и выведите на экран «наименьший» и «наибольший» символы.
var a: array[1..15] of char;
i,min,max: integer;
begin
min=1;
max=1;
for i: = 1 to 15 do begin
a[i]: = chr(random(256));
if a[min]> a[i] then min: =i;
if a[max]< a[i] then max: =i;
end;
writeln(a[min], a[max]);
end.