<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
type
fs=(string,string);
begin
var L:=new List<fs>;
repeat
var aw:=ReadlnString('>').ToWords;
if aw.Length=0 then break;
L.Add((aw[1],aw[0]))
until false;
var a:=L.OrderBy(t->t[0]);
var i:=1;
foreach var x in a do begin
Writeln(i:4,' ',x[1],' ',x[0]);
i+=1
end
end.
<u>Пример</u>
> J.X. Smith
> B.A. Weiter
> A.C. Johnes
>
1 A.C. Johnes
2 J.X. Smith
3 B.A. Weiter
// 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
<span>в пачке было 42х листа формата А3.Каждый лист разрезали и получили 124х листов формата А4. В системе счисления с каждим основанием вели счёт?</span>
Ответ: В десятичной...
Здесь показано куда сохранять фильм
http://yadi.sk/d/WIpiQW9zLLsA7
Здесь показано при выборе фильма куда загружать
http://yadi.sk/d/dFJrCH9sLLsLd
Или если это все не помогло смотри настройки куда сохранялся фильм и перемещай его на рабочий стол
101010(2)=42(10)=1120(3)=52(8)=2А(16)
10221(3)=81+18+6+1=106(10)=162(8)=1110010(2)=72(16)
127(8)=1010111(2)=87(10)=10020(3)=57(16)
9В=10011011(2)=233(8)=255(10)=100110(3)