<em>// PascalABC.NET 3.2, сборка 1356 от 04.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var r:=Range(1,ReadInteger('n='),2);
var p:=r.Aggregate(BigInteger(1),(i,j)->i*j);
var s:=r.Sum;
Writeln('x=',p,'/',s,'=',real(p)/s)
end.
<u>Пример</u>
n= 39
x=319830986772877770815625/400=7.99577466932194E+20
Клавиатура - это система, состоящая из взаимосвязанных частей, потому что благодаря разным комбинациям клавиш мы можем производить различные действия.
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
function Dec2Bin(t: integer): string;
begin
var r: string := '';
while t >= 2 do
(r, t) := (t mod 2 + r, t shr 1);
r := t + r;
Result := '0' * (8 - r.Length) + r
end;
function Bin2Dec(s: string): integer;
begin
Result := 0;
var p := 1;
for var i := s.Length downto 1 do
begin
Result += (s[i].ToDigit) * p;
p *= 2
end
end;
function GenSeqCycle(n: integer): sequence of integer;
begin
var s := Dec2Bin(n);
loop 8 do
begin
yield Bin2Dec(s);
s := s[2:] + s[1]
end
end;
begin
GenSeqCycle(ReadInteger).Max.Println
end.
Б - перемещали только файл, расширение файла не меняли.
Программа по введеным 3 числам определяет, может ли существовать треугольник со сторонами, равными этим числам.
Правило треугольника: сумма любых двух сторон треугольника всегда больше третьей стороны.
оператор в программе всего 1: условный, который и проверяет все 3 условия(3 стороны - 3 разных условия, которые даже выполняться одновременно)