// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
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.
Пример > J.X. Smith > B.A. Weiter > A.C. Johnes > 1 A.C. Johnes 2 J.X. Smith 3 B.A. Weiter
Для корректной работы программы диапазоны не должны пересекаться, то есть, должно быть так: X1 ≤ X2 < Y1 ≤ Y2 < Z1 ≤ Z2
Var X1,X2,Y1,Y2,Z1,Z2,G:byte; Begin Write('X1 = ');ReadLn(X1); Write('X2 = ');ReadLn(X2); Write('Y1 = ');ReadLn(Y1); Write('Y2 = ');ReadLn(Y2); Write('Z1 = ');ReadLn(Z1); Write('Z2 = ');ReadLn(Z2); Write('G = ');ReadLn(G); if (X1<=G)and(G<=X2) then WriteLn('Полутяжёлый вес') else if (Y1<=G)and(G<=Y2) then WriteLn('Тяжёлый вес') else if (Z1<=G)and(G<=Z2) then WriteLn('Супертяжёлый вес') else WriteLn('Не попадает в данные весовые категории') End.
// Внимание! Если программа не работает, обновите версию!
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.
Пример
> J.X. Smith
> B.A. Weiter
> A.C. Johnes
>
1 A.C. Johnes
2 J.X. Smith
3 B.A. Weiter