Вводится четырехзначное число. сформировать из его цифр другое четырехзначное число, такое, что в нем цифры идут в порядке убывания в pascal

емкость неформатированного диска больше информационной емкости доступной для записи данных, т.е. отформатированного диска.

1. внимательно читаете . вникаете в смысл. выясняете, все ли термины  известны и понятны. детально представляете себе ситуацию или как идет прощесс, описанный в .

2. записываете данные.

3. записываете, что нужно найти.

4. вспоминаете все возможные соотношения и формулы, связывающие параметры, данные в , с тем параметром, который нужно найти.

5. решаете в общем виде - это значит выводите формулу, в которой известны все величины, кроме искогомого. подставляете известные значения в формулу и вычисляете. можно делать вычисления и постадийно - это уж как вам удобно.

6. проверяете размерности. в конечную формулу вместо числовых значений подставляются размерности соответствующих величин. если конечная размерность не соответствует размерности искомого, значит нужно искать ошибку. если соответсвует, то это еще не полная гарантия, что ответ правильный.

7. проверка. решаем обратную : считаем, что какое-либо из первоначальных данных неизвестно, и на основании найденного ответа вычисляем этот "условно неизвестный параметр". если результат вычислений совпадает в данными, значит решена верно. если нет - ищите ошибку.

у дальних планет больше спутников по причине их большей массы. чем больше масса планеты - тем большую массу она притягивает и захватывает.

1

a)

program pr;

var

s: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

writeln('введите заданный символ');

readln (c);

for i: =1 to length(s) do if s[i]=c then writeln ('в строке найден заданный символ');

readln;

end.

б)

program pr;

var

s,n: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

writeln(n);

readln;

end.

в)

program pr;

var

s,n,f: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

f: =copy(s,i+1,length(s)-i+1);

writeln(n);

writeln(f);

readln;

end.

program pr;

var s: string;

begin

s: ='касіу ясь канюшыну';

delete (s,7,3);

insert ('ясь',s,7);

writeln (s);

readln;

end.

3

а)

program pr;

var

s: string;

begin

s: ='реки горы и болота';

delete (s,6,5); {удаляем включая пробел}

writeln (s);

readln;

end.

б)

program pr;

var

s: string;

begin

s: ='реки горы и болота';

delete(s,13,6);

s: =s+'озера';

writeln (s);

readln;

end.