<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
Следует отметить, что 1 условие выполняется во всех цепочках, а значит его можно не рассматривать.
Рассмотрим каждую комбинацию отдельно:
HDEE
2 условие - true
3 условие - true
4 условие - true
Подходит
<span>HHAE
</span>2 условие - true
3 условие - false(H на 2 месте)
<span>HEAE
</span>2 условие - true
3 условие - true
4 условие - true
Подходит
<span>AHAH
</span>2 условие - true
3 условие - true
4 условие - true
Подходит
<span>AEAD
</span>2 условие - true
3 условие - true
4 условие - true
Подходит
<span>AEED
</span>2 условие - false(E на 3 месте)
<span>CAEH
</span>2 условие - false(A не входит в список допустимых значений)
<span>EHAD
</span>2 условие - true
3 условие - false(E <span>не входит в список допустимых значений)
</span><span>CDEA
</span>2 условие - true
3 условие - true
4 условие - false(A <span>не входит в список допустимых значений)
Ответ: 4</span>
Var a, n :integer;
begin
writeln('a=');
readln(a);
n:=a mod 10;
writeln (n);
readln;
<span>end.</span>
Program intel;
var a,i,sum: integer;
Begin
randomize;
sum:=0;
for i:=1 to 10 do
begin
a:= random(31)-10;
writeln(a:10);
sum:=sum+a;
end;
writeln;
writeln(sum:10);
readln;
end.