Дженнифер в этой системе будет составлять 15 единиц. каждый слог в имени даёт по 5 единиц. так как в имени дженнифер имеется 3 слога, то число единиц — 15.
Набрать воды в 3 литровый кувшин. Вылить содержимое в 8 литровый кувшин набрать воды в 3 литровый кувшин. Вылить содержимое в 8 литровый кувшин набрать воды в 3 литровый кувшин Вылить содержимое в 8 литровый кувшин, оставив один литр в 3 литровом кувшине. Опустошить 8 литровый кувшин Вылить содержимое 3 литрового кувшина в 8 литровый Набрать воды в 3 литровый кувшин Вылить содержимое в 8 литровый кувшин Набрать воды в 3 литровый кувшин Вылить содержимое в 8 литровый кувшин Вот весь алгоритм. Поблагодари, если
1.const N=10; type Vector = array [1..N] of integer; var B: vector; max :integer; procedure IntVector(N: integer; var a: vector); begin for var i := 1 to N do a[i] := random(100); end; procedure OutVector(N: integer; a: vector); begin for var i := 1 to N do begin write(a[i]:5); end; end; procedure Srav (a:vector; N,g:integer); begin g := a[1]; for var i:=1 to N do if (g < a[i]) then g:=a[i]; writeln (g); end; Begin IntVector(N, B); writeln; OutVector(N, B ); writeln; Srav(B,N, max); writeln; End. 2. const N = 10; type Vector = array [1..N] of integer; var B: vector; r,v : real; procedure IntVector(N: integer; var a: vector); begin for var i := 1 to N do a[i] := random(20); end; procedure OutVector(N: integer; a: vector); begin for var i := 1 to N do begin write(a[i]:5); end; end; function srednee(a: vector; N: integer): real; begin for var i := 1 to N do begin result := (result + a[i]); end; end; function kolvo(a: vector; g: real): real; begin for var i := 1 to N do if (a[i] < (srednee(a, N)/10)) then result := result + 1; end; begin IntVector(N, B); writeln; OutVector(N, B ); writeln; writeln ((srednee(B, N)/10):5:3); r := kolvo(B, v); writeln(r); end.
