<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
for var i := 0 to Trunc((95 + 100) / 0.5) do
begin
var z := -100 + 0.5 * i;
var y := Abs(z) < 1.5 ? Abs(z) + z * z : 1 / (Abs(z) + 1);
Writeln(z:6:1, y:20:16)
end
end.
<h2>Результаты (приведены начало и конец)</h2><h3>-100.0 0.0099009900990099</h3><h3> -99.5 0.0099502487562189</h3><h3> -99.0 0.0100000000000000</h3><h3> -98.5 0.0100502512562814</h3><h3> -98.0 0.0101010101010101</h3><h3>. . . . . . .</h3><h3> 93.0 0.0106382978723404</h3><h3> 93.5 0.0105820105820106</h3><h3> 94.0 0.0105263157894737</h3><h3> 94.5 0.0104712041884817</h3><h3> 95.0 0.0104166666666667</h3>
<em>// PascalABC.NET 3.2, сборка 1334 от 12.11.2016</em>
begin
var a:=ArrRandom(30,100,500); a.Println;
a.where(x->x.IsEven).Println(',')
end.
Пример
290 113 132 216 290 437 425 260 107 439 258 498 306 367 335 460 157 470 311 284 123 226 257 392 321 141 361 340 457 276
290,132,216,290,260,258,498,306,460,470,284,226,392,340,276
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
Writeln(Range(1,ReadInteger,2).Aggregate(BigInteger(1),(p,q)->p*q))
end.
<h2>Код (выполнен и написан на языке С++)</h2>
#include <iostream>
#include <math.h> // для функции sqrt()
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian");
int x;
cout << "Введите x: ";
cin >> x;
if((x + 5) < 0){
cout << "Корень из отрицательного числа не вычисляется!" << endl;
return 0;
}
else {
cout << "Корень из " << x + 5 << " равен " << sqrt(x + 5) << endl;
}
return 0;
}
<h2>Проверка:
</h2>
Введите x: 139
Корень из 144 равен 12
Введите x: -5
Корень из 0 равен 0
Введите x: -6
Корень из отрицательного числа не вычисляется!
