var
n,s:integer;
begin
repeat
write ('N = ');readln(n);
until (n>=10000) and (n<=32767);
s:=n div 10000 + (n div 1000) mod 10 + n mod 10;
writeln ('Summa: ',s);
readln;
end.
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
Println(Tan(Exp(4) / 7 + (Pi * (ArcSin(0.27) - Cos(DegToRad(75))))
** (1 / 6)) / (Ln(5) + Log10(7)) * Tan(5 ** 4
- Range(1, 6).Aggregate(1, (p, q)-> p * q)))
end.
<h2>0.630443611995394</h2>
Во вложении приведен результат контрольного решения, выполненный в пакете компьютерной алгебры Maple15 и выведенный с 20 значащими цифрами.
<HTML>
<HEAD>
<SCRIPT>
function btnClick()
{
s1=""; s2="";
var animals=["кот","рыба","лемур","комодский варан"];
for (i=0; i<animals.length; i++) {
s1 = s1+animals[i]+"\n";
animals[i] = animals[i] + " - прекрасное животное";
s2 = s2+animals[i]+"\n"
};
document.frm.res1.value=s1;
document.frm.res2.value=s2;
}
</SCRIPT>
</HEAD>
<BODY>
<H1>Животные</H1>
<FORM name=frm>
<INPUT type="button" value="Щелкни здесь!" onClick="btnClick();">
<P>
<TEXTAREA name="res1" cols="50" rows="5">
</TEXTAREA>
<P>
Результат:
<BR>
<TEXTAREA name="res2" cols="50" rows="5">
</TEXTAREA>
</FORM>
</BODY>
</HTML>
// PascalABC.NET 3.3
begin
var a:=ArrRandom(10,-10,10);
writeln('Массив A:'); a.Println;
var b:=a.Where(x->(x<0)and(x mod 2=0)).ToArray;
writeln('Массив B:'); b.Println;
end.
Пример:
Массив A:
7 -4 -9 2 6 8 5 -10 8 8
Массив B:
-4 -10
