// Pascal
var
a,x,y:real;
begin
readln(a,x,y);
S := abs(a) + sqrt( x+y*y );
writeln(S);
end;
Program z1;
var a,i,sum:integer;
Begin
sum:=0;
for i:=1 to 5 do
begin;
read(a);
if (a<0) and (a mod 5=0) then
sum:=sum+a;
end;
writeln(sum);
End.
Program z2;
var a,p,i:integer;
Begin
p:=1;
for i:= 1 to 5 do
begin;
read(a);
if (a mod 10=2) or (a mod 10=4) then
p:=p*a;
end;
writeln(p);
End.
Ответ: 1,2
Операция random(n) - генерирует случайное число от 0 до числа n
===== PascalABC.NET =====
#1
y := (a * x + 2 * b * x * x) * Abs(Cos(x * x)) / (Pi * Exp(x));
y := (a * Ln(b * x)) ** (1 / 3) / (1 + Sqr(Sin(a * x)));
y := (Abs(Sin(x ** 3)) + a) * Exp(a) / (b * b + c * c) ** (1 / 3);
#2
begin
var (a, x) := ReadReal2('Введите a и x:');
var t := x ** 3 - a;
t := Sign(t) * Abs(t) ** (1 / 3);
var y := t + Sin(x * x) / a;
Print('y =', y)
end.
Операция возведения в степень ** в PascalABC.NET определена только для неотрицательного аргумента, поскольку она выполняется с использованием логарифма. В то же время, в математике операция извлечения корней нечетной степени для отрицательного аргумента опеределена и допустима. В соответствии с этим, извлечение кубического корня в программе производится из абсолютной величины аргумента и последующим присваиванием знака этого аргумента результату. Если имеется потребность вычислять подобные корни в нескольких местах программы, имеет смысл ввести для этого собственную функцию.
a. 4294967296 байт (4 Гб)
b. Зависит от количества установленной памяти, но до 4 Гб
c. Зависит от того, как он поведёт себя, если при чтении 32 бит начальный адрес будет больше, чем максимальный минус 32 бита. Чтоб наверняка, то 4294967292, хотя адрес в десятичной системе писать и не очень ок.