Наверное "5. не более 226" символов.
это связанно с длиной строки
2 взвешиваний так как эта одна монета может попастся с самого начала
<em>// PascalABC.NET 3.2, сборка 1370 от 24.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandomReal(ReadInteger('n='),-50,50);
a.Transform(x->Trunc(100*x)/100); // Чтобы числа легче было читать))
a.Println;
var a0:=a[0];
a:=a.Select((x,i)->i.IsEven?x/a0:x).ToArray;
a.Println
end.
<u>Пример</u>
n= 8
-37.63 0.61 41.54 -46.8 34.42 23.66 13.12 7.64
1 0.61 -1.10390645761361 -46.8 -0.914695721498804 23.66 -0.348657985649747 7.64
Program X; //работает только для русских строк
var
i: longint;
s: string;
begin
readln(s);
for i := 1 to length(s) do
if (ord(s[i]) >= 192) and (ord(s[i]) <= 223) then
s[i] := chr(ord(s[i]) + 32)
else if (ord(s[i]) >= 224) and (ord(s[i]) <= 255) then
s[i] := chr(ord(s[i]) - 32);
writeln(s)
<span>end.</span>
Var a,n,i,ans:integer;
begin<span>
readln(a);</span><span>
readln(n);</span><span>
i:=0;</span><span>
ans:=1;</span><span>
while(i<n) do</span><span>
begin</span><span>
ans:=ans*a*a;</span><span>
inc(i);</span><span>
writeln(ans);</span><span>
end;
</span>end.
<span>Так? По тести)</span>