5. 100 горіхів розклали на 5 купок. у 1-гій і в 2-гій - в сумі 51 горіх, а в 2-гій і в 3-тій - 44, в 3-тій і 4-тій - 31, а в 4-тій і в 5-тій 33. знайди к-ть горіхів кожній купці.
1) program one; uses crt; var A: array [1..6] of integer; i,k,Amin,Amax,S: integer; begin readln (A[i]); Amax:=A[1]; k:=1; for i:=2 to 6 do begin if A[i]>Amax then begin k:=i; Amax:=A[i]; end; end; Amin:=A[1]; k:=1; for i:=2 to 6 do begin if A[i]<Amin then begin k:=i; Amin:=A[i]; end; end; S:=0; for i:=1 to 6 do begin if (A[i]mod 2=0) and (Amax>A[i]) and (Amin<A[i]) then S:=S+A[i]; end; writeln ('Сумма положительных чисел между минимальным и максимальным значениями равна: ', S); end.
2) program two; uses crt; var x,a,b,i,n: integer; y: real; begin readln (a,b,i,n); x:=a; repeat if -2<=x<=2 then y:=sqr(x)-1 else y:=sqrt(x-1); writeln (y:3:4); i:=i+n; until x>=b; end.
1) program one; uses crt; var A: array [1..6] of integer; i,k,Amin,Amax,S: integer; begin readln (A[i]); Amax:=A[1]; k:=1; for i:=2 to 6 do begin if A[i]>Amax then begin k:=i; Amax:=A[i]; end; end; Amin:=A[1]; k:=1; for i:=2 to 6 do begin if A[i]<Amin then begin k:=i; Amin:=A[i]; end; end; S:=0; for i:=1 to 6 do begin if (A[i]mod 2=0) and (Amax>A[i]) and (Amin<A[i]) then S:=S+A[i]; end; writeln ('Сумма положительных чисел между минимальным и максимальным значениями равна: ', S); end.
2) program two; uses crt; var x,a,b,i,n: integer; y: real; begin readln (a,b,i,n); x:=a; repeat if -2<=x<=2 then y:=sqr(x)-1 else y:=sqrt(x-1); writeln (y:3:4); i:=i+n; until x>=b; end.
100-51-31=18 горіхів у 5 купці
100-51-33=16 горіхів у 3 купці
100-44-33=23 горіхи у 1 купці
51-23=28 горіхів у 2 купці
31-16=15 горіхів у 4 купці