// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
var s:=ReadLnString('Введите натуральное число');
var k:=ReadChar('Введите символ для исключения');
s.Where(x->x in ['0'..'9']).Reverse.Where(x->x<>k).PrintLn('')
end.
<u><em>Тестовые решения</em></u>
<u>- сначала корректное число:</u>
Введите натуральное число 23610645311065462546320
Введите символ для исключения 6
023452450113540132
<u>- а теперь число, замусоренное разными символами:</u>
Введите натуральное число 1234 разорвем2356-783+342\1421453!!!
Введите символ для исключения 3
5412412487652421
Var m:array of integer;
a,b,i,n,min,max:integer;
begin
readln(n,a,b);
setlength(m,n);
n-=1;
a-=1;
b-=1;
max:=a;
min:=a;
for i:=0 to n do begin
read(m[i]);
if (i>=a) and (i<=b) and (m[i]>m[max]) then max:=i;
if (i>=a) and (i<=b) and (m[i]<m[min]) then min:=i;
end;
writeln('Min ',m[min],' Max ',m[max]);
<span>end.</span>
X - количество монет у I
y - количество монет у II
1-ая партия: I X+Y/2 ; II Y-Y/2=У/2
2-ая партия: I (X+Y/2)/2 II Y/2+(X+Y/2)/2=Y*3/4+X/2
3-я партия: I (X+Y/2)/2+1/2(Y*3/4+X/2)=X*3/4+Y* 5/8
II Y*3/8+X/4
Cистема:
X*3/4+Y*5/8=28
(X/4+Y*3/8)=12 Решение этой системы: Х=24 Y=16
Ответ 24 монеты у первого; 16 монет у второго
Const
n = 5;// количество элем массиваvar
a: array [1..n] of integer;
sum, i: integer;begin
for i := 1 to n do
readln(a[i]);
for i := 1 to n do
if a[i] = i then
sum := sum + a[i];
writeln(sum);
end.
1) Байкал - озеро
2) Петербург - город
3) Индия - страна
4) хлопоты - глагол
5) дебри - они в тундре
6) мозоль - он не красный
7) лазурь - заканчивается на "рь"