// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
var a:=ReadArrInteger(5);
a.Reverse.Println
end.
<u><em>Тестовое решение:</em></u>
6 -4 7 0 2
2 0 7 -4 6
Program funt_kg;
var a: real;
i: integer;
begin
for i:=1 to 10 do
begin
a:=i*0.40951;
write (i,' фунт =',a, 'кг');
writeln;
end;
end.
program arschin_metr;
var a: real;
i: integer;
begin
for i:=1 to 10 do
begin
a:=i*0.7112;
write (i,' аршин =',a, 'м');
writeln;
end;
end.
program zolotnik_gram;
var a: real;
i: integer;
begin
for i:=1 to 10 do
begin
a:=i*4.2657;
write (i,' золотник =',a, 'грамм');
writeln;
end;
end.
program duym_mm;
var a: real;
i: integer;
begin
for i:=1 to 10 do
begin
a:=i*25.3995;
write (i,' дюйм =',a, 'мм');
writeln;
end;
end.
I(место, необходимое для хранения сообщения) = 12*33*63 = 24 948 Бит
24 948 Бит = 24 948 / 8 = 3 118. 5 байт.
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var n := ReadlnInteger('N=');
var R := new integer[n];
repeat
var a := ReadlnString.ToCharArray;
if a.Length <> N then break;
if a.Where(c -> c = '+').Count = 1 then
Inc(R[a.IndexOf('+')])
until False;
R.Transform(t -> t >= 0.07 * N ? 1 : 0);
R.Numerate.Where(t -> t[1] = 1).Select(t -> t[0]).Println
end.
<h3>Пример</h3>
(окончание ввода - строка длины отличной от N)
N= 5
-+---
--+--
-+---
+----
-+---
--+--
-+---
+----
----+
-+---
1 2 3 5