Var
n, a, b, i, j: integer;
ar: array[1..10000]of integer;
begin
read(n, a, b);
ar[1] := a;
ar[2] := b;
for i := 3 to n do
begin
for j := 1 to i - 1 do
begin
ar[i] := ar[i] + ar[j];
end;
ar[i] := ar[i] + i;
end;
for i := n downto 1 do write(ar[i],' ');
end.
<h3>// PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>// Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadArrReal(8);
a.Take(4).Aggregate(1.0, (p, q)-> p * q).Println
end.
<h2>Пример</h2><h3>3.12 -52.52 16 132.52 0 -6 12.707 0.0018</h3><h3>-347440.723968 </h3>
begin
var a := MatrRandom(4, 3, -99, 99);
a.Println(4);
a.ElementsByRow.Where(p -> p > 1).Count.Println
end.
Браузеры Программы, с помощью которых просматриваются гипертексты в системе Всемирной паутины, называют
Первая программа
var x,y:real;
begin
readln(x);
y:=sqrt(x);
writeln(y);
end.
Вторая программа
const n=4;
var i,c:integer;
s,p:real;
a:array[1..n] of real;
begin
c:=1;
writeln('Введите стороны 4-ех угольника: ');
for i:=1 to n do readln(a[i]);
for i:=1 to n-1 do begin
if(a[i] = a[i+1]) then
c+=1;
end;
if(c = 4) then begin
s:=sqr(a[1]);
p:=4*a[1];
writeln('Площадь квадрата: ',s,'. Периметр квадрата: ',p);
end
else begin
s:=a[1]*a[2];
p:=2*(a[1]+a[2]);
writeln('Площадь прямоугольника: ',s,'. Периметр прямоугольника: ',p);
end;
end.