Из десятичной в 16-ую
a) 201 б) 258 в) 7DA
Из десятичной в 8-ую
а) 1001 б) 1130 в) 3732
begin
var N := ReadInteger();
var a := ReadArrReal(N);
Swap(a[a.IndexMax], a[a.IndexMin]);
a.Println
end.
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
var s:=ReadlnString('>');
s:=s.Replace(' ',''); Writeln(s);
end.
<u><em>Тестовое решение:</em></u>
> А роза упала на лапу Азора
АрозаупаланалапуАзора
Блок-схема - в прилагаемом файле. Программа на паскале:
var a,b:integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
if a<>b
then begin a:=a+b; b:=a; end
else begin a:=0; b:=0; end;
writeln('a = ',a,' b = ',b);
end.
Пример:
a = 2
b = 5
a = 7 b = 7
//PascalABC.Net 3.1.0.1200
begin
var a := ArrRandomInteger(100, 1, 100).toList;
Println(A);
a := a.Sorted.toList;
a := a.Pairwise().Where(x -> x.Item1 = x.Item2).Select(x -> x.Item1).toList;
a := a.Distinct.toList;
Println(A);
end.