Алгоритм вычисления значения функции F(n), где n — натуральное число, задан следующими соотношениями: F(1)=1,F(n)=F(n−1)⋅n,приn>1. Чему равно значение функции F(2)?
begin sum := 0; i := 1; repeat Write('Введите число = '); Readln(a); sum := sum + a; i := i + 1; until i > n;
Writeln('Среднее арифметическое = ', sum / n); end. //2 const n = 10;
var a, sum, i: integer;
begin sum := 0; i := 1; while i <= n do begin Write('Введите число = '); Readln(a); sum := sum + a; i := i + 1; end; Writeln('Среднее арифметическое = ', sum / n); end. //3 const n = 10;
var a, i, sum: integer;
begin sum := 0; for i := 1 To n Do begin Write('Введите число = '); Readln(a); Sum := Sum + a; end; Writeln('Среднее арифметическое = ', sum / n); end.
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016 type Matrix=array[,] of integer;
procedure MatPrint(a:Matrix; w:integer); begin for var i:=0 to Length(a,0)-1 do begin for var j:=0 to Length(a,1)-1 do Write(a[i,j]:w); Writeln end end;
procedure MatProd(a,b,c:Matrix); begin for var i:=0 to Length(a,0)-1 do for var j:=0 to Length(b,1)-1 do begin var s:=0; for var k:=0 to Length(a,1)-1 do s+=a[i,k]*b[k,j]; c[i,j]:=s end end;
begin var a,b,c:Matrix; var m,n,p:integer; Write('Число строк матрицы А: '); Read(n); Write('Число столбцов матрицы А и строк матрицы В: '); Read(m); Write('Число столбцов матрицы В: '); Read(p); a:=MatrixRandom(n,m,-50,50); Writeln('Матрица А'); MatPrint(a,4); b:=MatrixRandom(m,p,-50,50); Writeln('Матрица B'); MatPrint(b,4); SetLength(c,n,p); Writeln('Матрица C'); MatProd(a,b,c); MatPrint(c,7) end.
думаю ответ 1. у нас есть зависимость f(n) подставим вместо n 2. 2-1=1