на экзамен задачи
.docx
где x меняется от xн до xк с шагом x. var V,x,xn,xk,dx,y:real; begin Readln(xn,xk,dx,y); X:=xn; repeat if x<y then V:=x+cos(exp(sqr(Pi))) else if x=y then V:=x-arctan(y)-x*y else V:=abs(ln(abs(x))-1); Writeln(X:5:2,V:5:2); x:=x+dx; until x>xk; end. |
где x меняется от xн до xк с шагом x. var E,x,xn,xk,dx,a:real; begin Readln(xn,xk,dx,a); X:=xn; repeat if a<x then E:=5*exp(2)+1/sin(x) else if a=x then E:=exp(1)*ln(10)/ln(x) else E:=exp((1-exp(1)+cos(x))*ln(abs(a))); Writeln(X:5:2,E:5:2); x:=x+dx; until x>xk; end. |
где x меняется от xн до xк с шагом x. var U,x,xn,xk,dx,a,b:real; begin Readln(xn,xk,dx,a,b); X:=xn; repeat if a<b then U:=ln(sin(abs(x)))/ln(10) else if a=b then U:=sqr(x)-sqrt(x) else U:=ln(cos(abs(exp(a*ln(x))))); Writeln(X:5:2,U:5:2); x:=x+dx; until x>xk; end. |
где x меняется от xн до xк с шагом x. var W,x,xn,xk,dx,a,b,c:real; begin Readln(xn,xk,dx,a,b,c); X:=xn; repeat if a<b then W:=exp(ln(arctan(x))/C) else if a=b then W:=ln(c*x)/ln(10) else W:=c+exp(3*ln(pi))*sin(x); Writeln(X:10:2,W:10:2); x:=x+dx; until x>xk; end. |
где a меняется от aн до aк с шагом a. var T,a,an,ak,da,b,g,x,H:real; begin Readln(a,an,ak,da,b,g,x,H); A:=an; repeat if a<b then T:=2*g*x*sqr(ln(H)/ln(10)) else if a=b then T:=cos(H) else T:=sqrt(2*g*H)*exp(3*ln(ln(H))); Writeln(a:10:2,T:10:2); a:=a+da; until a>ak; end. |
где a меняется от aн до aк с шагом a. var F,a,an,ak,da,b,m,x:real; begin Readln(an,ak,da,b,m); A:=an; repeat if a>m then F:=a*sin(sqr(x))/cos(sqr(x))+b*exp(3*ln(m)) else if a=b then F:=a*exp(m) else F:=a*exp(3*ln(m))-b*sin(sqr(m)); Writeln(a:10:2,F:10:2); a:=a+da; until a>ak; end. |
где x меняется от xн до xк с шагом x. var B,x,xn,xk,dx,n,m,y:real; begin Readln(xn,xk,dx,n,m,y); X:=xn; repeat if x>y then B:=1/n*cos(exp(m*ln(n))) else if x=y then B:=m+ln(n)/ln(10) else B:=1/x*exp(n*ln(sin(m))); Writeln(x:10:2,B:10:2); x:=x+dx; until x>xk; end. |
где x меняется от xн до xк с шагом x. var Z,x,xn,xk,dx,c,a,b,d:real; begin Readln(xn,xk,dx,c,a,b,d); X:=xn; repeat if c>d then Z:=d*x*sin(c) else if c=d then Z:=1.75*ln(a)/(ln(b)/ln(10)) else Z:=cos(sqr(a*b)); Writeln(x:10:2,Z:10:2); x:=x+dx; until x>xk; end. |
где x меняется от xн до xк с шагом x. var Z,x,xn,xk,dx,a:real; begin Readln(xn,xk,dx,a); x:=xn; repeat if a>x then Z:=pi*exp(3*ln(x))-abs(x*pi) else if a=x then Z:=sin(1)/cos(1) else Z:=sin(sqrt(1+sqrt(x))); Writeln(x:10:2,Z:10:2); x:=x+dx; until x>xk; end. |
где a меняется от aн до aк с шагом a. var S,a,an,ak,da,H,R,n,b:real; begin Readln(an,ak,da,H,R,n,b); A:=an; repeat if a>b then S:=2*n*sqr(R)+exp(5*ln(sin(H)/cos(H))) else if a=b then S:=exp(ln(sqr(R))/ln(10)) else S:=2*pi*R+sin(H); Writeln(a:10:2,S:10:2); a:=a+da; until a>ak; end. |
var A:array[1..20] of integer; S,n,i:integer; begin Readln(n); for i:=1 to n do Readln(A[i]); S:=0; for i:=1 to n do S:=S+a[i]; Writeln('S=',S); for i:=1 to n do if a[i]>0 then a[i]:=10; for i:=1 to n do writeln(A[i]); end. |
var A:array[1..20] of integer; P,n,i:integer; begin Readln(n); for i:=1 to n do Readln(A[i]); P:=1; for i:=1 to n do P:=P*a[i]; Writeln('P=',P); for i:=1 to n do if a[i]<0 then a[i]:=20; for i:=1 to n do writeln(A[i]); end. |
var A:array[1..20] of integer; max,n,i:integer; begin Readln(n); for i:=1 to n do Readln(A[i]); max:=a[1]; for i:=2 to n do if a[i]>max then max:=a[i]; Writeln('max=',max); for i:=1 to n do if a[i]=0 then a[i]:=30; for i:=1 to n do writeln(A[i]); end. |
var A:array[1..20] of integer; min,n,i:integer; begin Readln(n); for i:=1 to n do Readln(A[i]); min:=a[1]; for i:=2 to n do if a[i]<min then min:=a[i]; Writeln('min=',min); for i:=1 to n do if a[i]<>0 then a[i]:=40; for i:=1 to n do writeln(A[i]); end. |
var A:array[1..20] of integer; S,n,i:integer; begin Readln(n); for i:=1 to n do Readln(A[i]); S:=0; for i:=1 to n do S:=S+a[i]; Writeln('Sr=',S/n); for i:=1 to n do if a[i]=0 then Writeln(i); end. |
var A:array[1..20] of integer; S,n,i,e:integer; begin Readln(n); for i:=1 to n do Readln(A[i]); S:=0; for i:=1 to n do if A[i]>0 then S:=S+a[i]; Writeln('S=',S); e:=a[3]; a[3]:=a[n-1]; a[n-1]:=a[3]; for i:=1 to n do writeln(A[i]); end. |
var A:array[1..20] of integer; K,mini,n,i:integer; begin Readln(n); for i:=1 to n do Readln(A[i]); K:=0; for i:=1 to n do if A[i]>0 then K:=K+1; Writeln('K=',K); mini:=1; for i:=1 to n do if a[i]<a[mini] then mini:=i; Writeln('imin=',mini) end.
|
var A:array[1..20] of integer; P,maxi,n,i:integer; begin Readln(n); for i:=1 to n do Read(A[i]); P:=1; for i:=1 to n do if A[i]>0 then P:=P*a[i]; Writeln('P=',P); maxi:=1; for i:=1 to n do if a[i]>a[maxi] then maxi:=i; Writeln('i max=',maxi) end.
|
var A:array[1..20] of integer; B:array[1..20] of real; max,n,i:integer; begin Readln(n); for i:=1 to n do Readln(A[i]); max:=-maxint; for i:=1 to n do if (A[i]>0) and (A[i]>max) then max:=A[i]; Writeln('max p=',max); for i:=1 to n do B[i]:=A[i]/80; for i:=1 to n do writeln(B[i]:0:2) end. |
var A,B:array[1..20] of integer; min,n,i:integer; begin Readln(n); for i:=1 to n do Readln(A[i]); min:=maxint; for i:=1 to n do if (A[i]>0) and (A[i]<min) then min:=A[i]; Writeln('min p=',min); for i:=1 to n do B[i]:=A[i]*70; for i:=1 to n do writeln(B[i]) end. |
var A,B:array[1..20] of integer; Sp,np,n,i:integer; begin Readln(n); for i:=1 to n do Readln(A[i]); sp:=0; np:=0; for i:=1 to n do if A[i]>0 then begin sp:=sp+a[i]; np:=np+1 end; Writeln('sr p=',sp/np:0:2); for i:=1 to n do B[i]:=A[i]-60; for i:=1 to n do writeln(B[i]) end. |
var A,B:array[1..20] of integer; S,n,i:integer; begin Readln(n); for i:=1 to n do Readln(A[i]); s:=0; for i:=1 to n do if A[i]<0 then s:=s+a[i]; Writeln('s otr=',s); for i:=1 to n do B[i]:=A[i]+50; for i:=1 to n do writeln(B[i]) end. |
var A:array[1..20] of real; K,n,i:integer; begin Readln(n); for i:=1 to n do Readln(A[i]); K:=0; for i:=1 to n do if A[i]<0 then K:=K+1; Writeln('k otr=',K); for i:=1 to n do if a[i]<0 then A[i]:=A[i]/10; for i:=1 to n do writeln(A[i]:0:2) end. |
var A:array[1..20] of integer; P,n,i:integer; begin Readln(n); for i:=1 to n do Readln(A[i]); P:=1; for i:=1 to n do if A[i]<0 then P:=P*a[i]; Writeln('P otr=',P); for i:=1 to n do if a[i]<0 then A[i]:=A[i]*20; for i:=1 to n do writeln(A[i]) end. |
var A:array[1..20] of integer; max,n,i:integer; begin Readln(n); for i:=1 to n do Readln(A[i]); max:=-maxint; for i:=1 to n do if (A[i]<0) and (a[i]>max) then max:=a[i]; Writeln('max otr=',max); for i:=1 to n do if a[i]<0 then A[i]:=A[i]-30; for i:=1 to n do writeln(A[i]) end. |
var A:array[1..20] of integer; min,n,i:integer; begin Readln(n); for i:=1 to n do Readln(A[i]); min:=0; for i:=1 to n do if (A[i]<0) and (a[i]<min) then min:=a[i]; Writeln('min otr=',min); for i:=1 to n do if a[i]<0 then A[i]:=A[i]+40; for i:=1 to n do writeln(A[i]) end. |
var A:array[1..20] of real; K,n,i:integer; S:real; begin Readln(n); for i:=1 to n do Read(A[i]); K:=0; S:=0; for i:=1 to n do if A[i]<0 then begin K:=K+1; S:=S+A[i] end; Writeln('SR otr=',s/k:0:2); for i:=1 to n do if a[i]>0 then A[i]:=A[i]/40; for i:=1 to n do writeln(A[i]:0:2) end. |
var A:array[1..20] of real; K,n,i:integer; begin Readln(n); for i:=1 to n do Readln(A[i]); K:=0; for i:=1 to n do if A[i]=0 then K:=K+1; Writeln('kol 0=',K); for i:=1 to n do if a[i]>0 then A[i]:=A[i]*30; for i:=1 to n do writeln(A[i]) end.
|
var A:array[1..20] of integer; K,n,i:integer; begin Readln(n); for i:=1 to n do Readln(A[i]); K:=0; for i:=1 to n do if A[i]<>0 then K:=K+1; Writeln('kol ne 0=',K); for i:=1 to n do if a[i]>0 then A[i]:=A[i]-20; for i:=1 to n do writeln(A[i]) end.
|
var A:array[1..20] of integer; P,n,i:integer; begin Readln(n); for i:=1 to n do Readln(A[i]); P:=1; for i:=1 to n do if A[i]<>0 then P:=P+1; Writeln('Pr ne 0=',P); for i:=1 to n do if a[i]>0 then A[i]:=A[i]+10; for i:=1 to n do writeln(A[i]) end.
|
var A:array[1..10,1..10] of integer; S,i,j,m,n:integer; begin Readln(m,n); for i:=1 to m do for j:=1 to n do Readln(A[i,j]); S:=0; for i:=1 to m do for j:=1 to n do s:=s+A[i,j]; Writeln('Sum=',S); for i:=1 to m do for j:=1 to n do if i=j then A[i,j]:=0; for i:=1 to m do begin for j:=1 to n do Write(A[i,j],' '); Writeln end end. |
var A:array[1..10,1..10] of integer; P,i,j,m,n:integer; begin Readln(m,n); for i:=1 to m do for j:=1 to n do Readln(A[i,j]); P:=1; for i:=1 to m do for j:=1 to n do P:=P*A[i,j]; Writeln('Pro=',P); for i:=1 to m do for j:=1 to n do if i<j then A[i,j]:=0; for i:=1 to m do begin for j:=1 to n do Write(A[i,j],' '); Writeln end end.
|
var A:array[1..10,1..10] of real; Max:real; i,j,m,n:integer; begin Readln(m,n); for i:=1 to m do for j:=1 to n do Readln(A[i,j]); max:=-maxint; for i:=1 to m do for j:=1 to n do if A[i,j]>max then max:=A[i,j]; Writeln('max=',max); for i:=1 to m do for j:=1 to n do if i>j then A[i,j]:=0; for i:=1 to m do begin for j:=1 to n do Write(A[i,j],' '); Writeln end end.
|
var A:array[1..10,1..10] of integer; min,i,j,m,n:integer; begin Readln(m,n); for i:=1 to m do for j:=1 to n do Read(A[i,j]); min:=maxint; for i:=1 to m do for j:=1 to n do if A[i,j]<min then min:=A[i,j]; Writeln('min=',min); for i:=1 to m do for j:=1 to n do if i<>j then A[i,j]:=0; for i:=1 to m do begin for j:=1 to n do Write(A[i,j],' '); Writeln end end.
|
var A:array[1..10,1..10] of integer; S,i,j,imax,jmax,m,n:integer; begin Readln(m,n); for i:=1 to m do for j:=1 to n do Readln(A[i,j]); S:=0; for i:=1 to m do for j:=1 to n do S:=S+A[i,j]; Writeln('SR=',S/n/m); imax:=1; jmax:=1; for i:=1 to m do for j:=1 to n do if A[i,j]>A[imax,jmax] then begin imax:=i; jmax:=j end; Writeln('i=',imax,' j=',jmax); readln end.
|
var A:array[1..10,1..10] of integer; S,i,j,imin,jmin,m,n:integer; begin Readln(m,n); for i:=1 to m do for j:=1 to n do Readln(A[i,j]); S:=0; for i:=1 to m do for j:=1 to n do if i=j then S:=S+A[i,j]; Writeln('S=',S); imin:=1; jmin:=1; for i:=1 to m do for j:=1 to n do if A[i,j]<A[imin,jmin] then begin imin:=i; jmin:=j end; Writeln('i=',imin,' j=',jmin); readln end.
|
var A:array[1..10,1..10] of integer; S,K,i,j,m,n:integer; begin Readln(m,n); for i:=1 to m do for j:=1 to n do Readln(A[i,j]); K:=0; for i:=1 to m do for j:=1 to n do if i<j then K:=K+1; Writeln('K=',K); S:=0; for j:=1 to n do S:=S+A[3,j]; Writeln('S=',S); readln end.
|
var A:array[1..10,1..10] of integer; P,S,i,j,m,n:integer; begin Readln(m,n); for i:=1 to m do for j:=1 to n do Readln(A[i,j]); P:=0; for i:=1 to m do for j:=1 to n do if i>j then P:=P+1; Writeln('P=',P); S:=0; for i:=1 to m do S:=S+A[i,2]; Writeln('S=',S); readln end.
|
var A:array[1..10,1..10] of real; i,j,m,n:integer; max:real; begin Readln(m,n); for i:=1 to m do for j:=1 to n do Readln(A[i,j]); max:=a[1,2]; for i:=1 to m do for j:=1 to n do if (i<>j) and (max<a[i,j]) then max:=a[i,j]; Writeln('max=',max); for i:=1 to m do for j:=1 to n do if A[i,j]<0 then A[i,j]:=A[i,j]/40; for i:=1 to m do begin for j:=1 to n do write(A[i,j],' '); writeln end; readln end. |
var A:array[1..10,1..10] of real; i,j,m,n:integer; min:real; begin Readln(m,n); for i:=1 to m do for j:=1 to n do Read(A[i,j]); min:=a[1,1]; for i:=1 to m do for j:=1 to n do if (i=j) and (min>a[i,j]) then min:=a[i,j]; Writeln('min=',min); for i:=1 to m do for j:=1 to n do if A[i,j]>0 then A[i,j]:=A[i,j]*30; for i:=1 to m do begin for j:=1 to n do write(A[i,j],' '); writeln end; readln end.
|
var A,B:array[1..10,1..10] of integer; i,j,m,n,S,K:integer; begin Readln(m,n); for i:=1 to m do for j:=1 to n do Readln(A[i,j]); s:=0; k:=0; for i:=1 to m do for j:=1 to n do if i<j then begin k:=k+1; S:=s+A[i,j] end; Writeln('Sr=',S/K); for i:=1 to m do for j:=1 to n do if A[i,j]>0 then B[i,j]:=A[i,j]-20; for i:=1 to m do begin for j:=1 to n do write(B[i,j],' '); writeln end; readln end.
|
var A,B:array[1..10,1..10] of integer; i,j,m,n,S:integer; begin Readln(m,n); for i:=1 to m do for j:=1 to n do Readln(A[i,j]); s:=0; for i:=1 to m do for j:=1 to n do if i>j then S:=s+A[i,j]; Writeln('S=',S); for i:=1 to m do for j:=1 to n do if A[i,j]>0 then B[i,j]:=A[i,j]+10; for i:=1 to m do begin for j:=1 to n do write(B[i,j],' '); writeln end; readln end.
|
var A:array[1..10,1..10] of integer; i,j,m,n,k,min:integer; begin Readln(m,n); for i:=1 to m do for j:=1 to n do Read(A[i,j]); k:=0; for i:=1 to m do for j:=1 to n do if i<>j then k:=k+1; Writeln('k=',k); for j:=1 to n do begin min:=a[1,j]; for i:=2 to m do if A[i,j]<min then min:=A[i,j]; write(min,' ') end; readln end.
|
var A:array[1..10,1..10] of integer; i,j,m,n,P,min:integer; begin Readln(m,n); for i:=1 to m do for j:=1 to n do Readln(A[i,j]); P:=0; for i:=1 to m do for j:=1 to n do if i=j then P:=P*A[i,j]; Writeln('P=',P); for i:=1 to m do begin min:=a[i,1]; for j:=2 to n do if A[i,j]<min then min:=A[i,j]; write(min,' ') end; readln end.
|
var A:array[1..10,1..10] of integer; i,j,m,n,P,max:integer; begin Readln(m,n); for i:=1 to m do for j:=1 to n do Readln(A[i,j]); max:=-maxint; {maxint vozvrashaet 32727} for i:=1 to m do for j:=1 to n do if (i<j) and (A[i,j]>max) then max:=A[i,j]; Writeln('max=',max); for j:=1 to n do begin P:=1; for i:=1 to m do P:=P*A[i,j]; write(P,' ') end; readln end.
|
var A:array[1..10,1..10] of integer; i,j,m,n,P,min:integer; begin Readln(m,n); for i:=1 to m do for j:=1 to n do Readln(A[i,j]); min:=maxint; {maxint vozvrashaet 32727} for i:=1 to m do for j:=1 to n do if (i>j) and (A[i,j]<min) then min:=A[i,j]; Writeln('min=',min); for i:=1 to m do begin P:=1; for j:=1 to n do P:=P*A[i,j]; writeln(P) end; readln end.
|
var A:array[1..10,1..10] of integer; i,j,m,n,S,K,max:integer; begin Readln(m,n); for i:=1 to m do for j:=1 to n do Readln(A[i,j]); s:=0; k:=0; for i:=1 to m do for j:=1 to n do if i<>j then begin k:=k+1; S:=s+A[i,j] end; Writeln('Sr=',S/K); for j:=1 to n do begin max:=a[1,j]; for i:=2 to m do if A[i,j]>max then max:=A[i,j]; write(max,' ') end; readln end.
|
var A:array[1..10,1..10] of integer; i,j,m,n,K,max:integer; begin Readln(m,n); for i:=1 to m do for j:=1 to n do Readln(A[i,j]); k:=0; for i:=1 to m do for j:=1 to n do if A[i,j]>0 then k:=k+1; Writeln('K=',K); for i:=1 to m do begin max:=a[i,1]; for j:=2 to n do if A[i,j]>max then max:=A[i,j]; write(max,' ') end; readln end.
|
var A:array[1..10,1..10] of integer; i,j,m,n,K,S:integer; begin Readln(m,n); for i:=1 to m do for j:=1 to n do Readln(A[i,j]); k:=0; for i:=1 to m do for j:=1 to n do if A[i,j]<0 then k:=k+1; Writeln('K=',K); for j:=1 to n do begin S:=0; for i:=1 to m do S:=S+A[i,j]; write(S,' ') end; readln end. |
var A:array[1..10,1..10] of integer; i,j,m,n,K,S:integer; begin Readln(m,n); for i:=1 to m do for j:=1 to n do Readln(A[i,j]); k:=0; for i:=1 to m do for j:=1 to n do if A[i,j]=0 then k:=k+1; Writeln('K=',K); for i:=1 to m do begin S:=0; for j:=1 to n do S:=S+A[i,j]; write(S,' ') end; readln end. |