Var x, y: integer;
begin
write('x = ');
readln(x);
if x <= 0 then y := 0;
if ((x > 0) and (x <= 1)) then y := x;
if x > 1 then y := x * x;
writeln(y);
end.
При x = 8, y = 64.
var
s,p:int64;
i,kol,m:integer;
a:array of integer;
begin
readln(kol);
s:=0;
p:=0;
m:=0;
setlength(a,kol);
for i := 1 to kol do
begin
read(a[i]);
s:=s+a[i];
p:=p*a[i];
end;
m:=s div kol;
writeln('Сумма ',s);
writeln('Произведение',p);
writeln('Среднее значение',m);
end.
<h3>PascalABC.NET 3.4.2, сборка 1811 от 01.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var p:=SeqRandomReal(ReadInteger('n='),-99,99)
.Select(t->Round(t,2)).ToArray;
p.Println;
Println('Сумма положительных',p.Where(r->r>0).Sum);
Println('Сумма отрицательных',p.Where(r->r<0).Sum)
end.
<span>в пачке было 42х листа формата А3.Каждый лист разрезали и получили 124х листов формата А4. В системе счисления с каждим основанием вели счёт?</span>
Ответ: В десятичной...