T = n mod 10; if (n mod t = 0) then writeln(t);
t = n div 10 mod 10; if (n mod t = 0) then writeln(t);
t = n div 100 mod 10; if (n mod t = 0) then writeln(t);
t = n div 1000 mod 10; if (n mod t = 0) then writeln(t);
Var
s, p, w : string;
begin
s := 'программирование';
p := copy (s, 1,8) + s[13];
w := copy (s, 8, 3);
write (p, ' ', w);
end.
Ответ:
var j,i,k,n:integer;
m:array[1..1000] of integer;
begin
read(n,k);
//Ввод элементов массива
for i:=1 to n do
read(m[i]);
//Сортировка по возрастанию
for i:=1 to k do
for j:=i to k do
if m[j]<m[i] then swap(m[i],m[j]);
//Сортировка по убыванию
for i:=k+1 to n do
for j:=i to n do
if m[j]>m[i] then swap(m[i],m[j]);
//Вывод элементов массива
for i:=1 to n do
print(m[i]);
end.
13)Сестра-инженер
Жена- юрист
Сын- слесарь
Муж- учитель
Отец-экономист
14. Их последовательность : Нана(Н), Дана(Д), Лана(Л), Зана(З)
Т.к. Д сидит между Н и Л, то расстояние между НД и ЛД одинаковые
Расстояние между Н и З = Д и Л
Следовательно, они все сидят на равных расстояниях друг от друга, ДЛ и ЛЗ будет =2 и между Н и З =6