Вариант 2 1. Задание
Ваня Сидоров, работая над проектом по геометрии, создал следующие файлы:
D:\Геометрия\Проект\Графики.bmp
D:\Учеба \Работа\Основа.doc
D:\Учеба\Работа\Замечания.doc
D:\Геометрия\Проект Диаграммы.bmp
D:\Геометрия\Проект\ Функции.doc
D:\Учёба\Работа\Пропуски.doc
Изобразите соответствующую файловую структуру.
Злани

решение​

1)
begin
  var s1:=ReadlnString('Текст:');
  Writeln('k = ',s1.Where(c->Pos(c,'01')>0).Count);
  var s2:=s1.Select(c->c='0'?'A':c).Select(c->c='1'?'M':c);
  s2.Println;
end.

Пример:
Текст: Текст с 1 и 0: 110+101=1011
k = 12
Текст с M и A: MMA+MAM=MAMM

2)
var s1,s2:string;
i,k:integer;
begin
writeln('Введите текст:');
readln(s1);
k:=0;
s2:='';
for i:=1 to length(s1) do
 if s1[i]='0'
  then begin s2:=s2+'A'; k:=k+1; end
  else if s1[i]='1' then begin s2:=s2+'M'; k:=k+1; end else s2:=s2+s1[i];
writeln(s2);
writeln('k = ',k);
end.

Пример:
Введите текст:
Текст с 1 и 0: 110+101=1011
Текст с M и A: MMA+MAM=MAMM
k = 12

В программе генерируются только убывающие последовательности (a[i]:=-i+random()+20;). Можно при желании массив вводить с клавиатуры.
const n=15;
var a:array[1..n] of real;
i:integer; b:boolean;
begin
Randomize;
for i:=1 to n do begin
 a[i]:=-i+random()+20;
 write(a[i]:5:2,' ');
 end;
writeln;
b:=true;
for i:=1 to n-1 do
 if a[i+1]>=a[i] then b:=false;
if b
 then 
  begin
  writeln('Последовательность убывающая');
  writeln('p = ',a[n]*a[n div 2+1]:5:2);
  end
 else writeln('Последовательность не убывающая')
end.

Пример:
19.02 18.28 17.91 16.67 15.03 14.68 13.10 12.86 11.91 10.19  9.66  8.35  7.37  6.55  5.20 
Последовательность убывающая
p = 66.86