3.2. Для упрощения записи 3.2. - 3.3. используется функция "pow", для которой надо подключить библиотеку "<cmath>". if (x > 4 && x < 17) y = pow(x,2) - 9;
3.3. if(a >= -3 && a <= 7) a -= 26; else a = pow(a,3);
3.4. if (B >= 26 && B <= 48) B +=26; else B /= 2;
4. a. c = 25. b. b = 10. c. e = 213. d. Не четное. e. Отрицательное или с разными знаками.
Program massive2; const n=7; var a:array [1..n] of integer; p,i,j,k:integer; begin Randomize; writeln('данные по продаже компьютеров'); for i:=1 to n do begin a[i]:=random(15); write(a[i],' '); end; writeln; for k:=1 to n-1 do for j:=k+1 to n do if a[k]>a[j]then begin p:=a[k]; a[k]:=a[j]; a[j]:=P; end; writeln('Массив, отсортированный по возрастанию'); for i:=1 to n do write ('A[',i,']=',a[i],' '); writeln; end.
Пример: данные по продаже компьютеров 14 2 13 9 10 12 9 Массив, отсортированный по возрастанию A[1]=2 A[2]=9 A[3]=9 A[4]=10 A[5]=12 A[6]=13 A[7]=14
S:real;
n:integer;
Begin
Write('n = ');
ReadLn(n);
S:=0;
For n:= 1 to n do
S:=S+(1+n*n);
WriteLn('S = ',S);
End.