Var a, p:real; n, i:integer; begin write('a = '); readln(a); write('n = '); readln(n); p := a; for i := 1 to n do p := p * (a - i * n); writeln('p = ', p); readln; end.
// PascalABC.NET 3.2, сборка 1382 от 06.02.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Количество строк в массиве:'); var m:=ReadInteger('Количество столбцов в массиве:'); Writeln('*** Исходный массив [',n,',',m,'] ***'); var a:=MatrRandom(n,m,-99,99); a.Println(4); Writeln(5*a.ColCount*'-'); a.Cols.Select(x->Format('{0,4}',x.Where(y->y>0).Count)).Print(''); Println(' - положительных'); a.Cols.Select(x->Format('{0,4}',x.Where(y->y<0).Count)).Print(''); Println(' - отрицательных'); end.
// PascalABC.NET 3.2, сборка 1381 от 04.02.2017 // Внимание! Если программа не работает, обновите версию!
begin var a,b,h:real; Write('Введите начальное значение, конечное и шаг: '); Read(a,b,h); var n:=Trunc((b-a)/h)+1; for var i:=1 to n do begin var x:=a+(i-1)*h; var y:=(x>0) and (x<=2)?x*x+Cos(x):4/x; Writeln(x:0:3,' ',y:0:5) end end.
a, p:real;
n, i:integer;
begin
write('a = ');
readln(a);
write('n = ');
readln(n);
p := a;
for i := 1 to n do
p := p * (a - i * n);
writeln('p = ', p);
readln;
end.