|
program z3_2; uses crt; var k:Integer; s,a:Real; Begin ClrScr; a:=10;s:=10; For k:=2 to 7 do Begin a:=1.1*a; s:=s+a; End; Writeln('s=',s:5:3,' км.'); ReadKey; end. |
program z3_3; uses crt; var k,s:Integer; Begin ClrScr; k:=0;s:=1; While k<24 do Begin k:=k+3; s:=s*2; Writeln(k,' з б.',' Є«Ґв®Є-',s); End; ReadKey; end.
|
|
program z3_4; uses crt; var x,y,h,ug:Real; Begin ClrScr; Write('Введите шаг-'); Read(h); x:=2; While x<=3 do begin y:=2; While y<=3 do Begin ug:=ArcTan(sqrt(1+sqr(x/y)))*180/pi; Writeln('ug=',ug:3:2,' градусов'); y:=y+h; End; x:=x+h; End; ReadKey; end. |
program z3_5; uses crt; var s,i,j:Integer; Label 1; Begin ClrScr; For i:=1 to 32 do For j:=1 to 16 do Begin s:=2*i+4*j; if s<>64 then goto 1; Writeln('гусей-',i,' кроликов-',j); 1: End; ReadKey; end.
|
|
program z3_6; uses crt; var s,i,j,k,n:Integer; Label 1; Begin ClrScr; For i:=1 to 10 do For j:=1 to 20 do For n:=1 to 200 do Begin s:=1000*i+500*j+50*n; k:=i+j+n; if (s<>10000) or (k<>100) then goto 1; Writeln('быков-',i,' коров-',j,' телят-',n); 1: End; ReadKey; end. |
program z3_7; uses crt; var s,x,d:Integer; Label 1; Begin ClrScr; For x:=0 to 15 do Begin s:=x*x+x+17; For d:=2 to x-1 do If x=int(x/d) then begin Writeln('число не простое'); Goto 1; End; Writeln('Простые числа-',s); 1: End; ReadKey; end. |
|
program z3_8; uses crt; var s,x,d:Integer; Label 1; Begin ClrScr; For x:=0 to 40 do Begin s:=x*x+x+41; For d:=2 to x-1 do If x=int(x/d) then begin Writeln('число не простое'); Goto 1; End; Writeln('Простые числа-',s); 1: End; ReadKey; end. |
program z3_9; uses crt; var m,n,a,b,c,k:Integer; Label 1; Begin ClrScr; Write('Введите k='); Read(k); Writeln('m':5,'n':5,'a':5,'b':5,'c':5); For m:=2 to k-1 do For n:=2 to k-1 do begin If n>=m then goto 1; a:=m*m-n*n; b:=2*m*n; c:=m*m+n*n; Writeln(m:5,n:5,a:5,b:5,c:5); 1: End; ReadKey; end. |
|
program z3_10; uses crt; var a1,a2,a3,a4,a5,a6,a7: Real; s: integer; Begin ClrScr; Write('Введите S='); read(s); a1:=int(s/500); s:=s mod 500; a2:=int(s/100); s:=s mod 100; a3:=int(s/50); s:=s mod 50; a4:=int(s/10); s:=s mod 10; a5:=int(s/5); s:=s mod 5; a6:=int(s/2); a7:=s mod 2; Writeln('500 руб.-',a1:5:0,' шт.'); Writeln('100 руб.-',a2:5:0,' шт.'); Writeln('50 руб.-',a3:5:0,' шт.'); Writeln('10 руб.-',a4:5:0,' шт.'); Writeln('5 руб.-',a5:5:0,' шт.'); Writeln('2 руб.-',a6:5:0,' шт.'); Writeln('1 руб.-',a7:5:0,' шт.'); Readkey; end. |
program z3_11; uses crt; var a,b,sb,s:Real; i: integer; Begin ClrScr; Write('Введите стипендию и расходы A<B, A,B= '); read(a,b); sb:=b; For i:=2 to 10 do Begin b:=b*1.03; sb:=sb+b; end; s:=sb-10*a; Write('Требуемая сумма-',s:5:2,' руб.'); Readkey; End.
|
|
program z3_12; uses crt; var i,n:integer; Begin ClrScr; Write('Введите n='); read(n); For i:=1 to 9 do Begin gotoxy(5,i+1);Writeln(n,'x',i,'=',n*i); gotoxy(15,i+1);Writeln(n,'+',i,'=',n+i); end; Readkey; end. |
program z3_13; uses crt; var a,b,b1,a1,a2,b2,i,n:integer; c:String; Label 1; Begin ClrScr; Write('Введите n='); read(n); For i:=1 to 9 do Begin a:=n*i; b:=b+i; a2:=a mod 16; a1:=a div 16; b1:=b mod 16; b2:=b div 16; if a2<10 then begin if a1=0 {b1=0}then Writeln(n,'x',i,'=',a2) {Writeln(n,'+',i,'=',b2)} else Writeln(n,'x',i,'=',a1,a2); {Writeln(n,'+',i,'=',b1,b2)} goto 1; End; case a2 of 10:c:='A'; 11:c:='B'; 12:c:='C'; 13:c:='D'; 14:c:='E'; 15:c:='F'; End; Writeln(n,'x',i,'=',a1,c); {Writeln(n,'+',i,'=',b1,c);} 1: end; Readkey; end. |
|
program z3_14; uses crt; var i,a,b,n:integer; s:Longint; Begin ClrScr; Write('Введите n='); read(n); a:=1; for i:=1 to n-1 do a:=10*a; b:=10*a-1; For i:=a to b do s:=s+i; Writeln('s=',s); Readkey; end.
|
|
|
program z3_15; uses crt; var i,a,b,n,k:integer; s:Longint; Begin ClrScr; Write('Введите n='); read(n); Write('Введите k='); read(k); a:=1; for i:=1 to n-1 do a:=10*a; b:=10*a-1; For i:=a to b do if i mod k =0 then s:=s+i; Writeln('s=',s); Readkey; end. |
program z3_16; uses crt; var k,n,a,b,c:Longint; Begin ClrScr; Write('Введите n<19 '); Read(n); For k:=1 to n do Begin a:=a+k*k*k*k*k; b:=b+k*k*k*k*k*k*k; c:=c+k; End; c:=2*c*c*c*c; Writeln(a+b,'=',c); ReadKey; end. |
|
program z3_17; uses crt; var a,b,s:Real; x,p,y,c,t,g,o:integer; Begin ClrScr; For x:=1 to 9 do For p:=1 to 9 do For y:=0 to 9 do For c:=0 to 9 do For t:=0 to 9 do For g:=1 to 9 do For o:=0 to 9 do Begin a:=10000*x+1000*p+100*y+10*c+t; b:=100000*g+10000*p+1000*o+100*x+10*o+t; s:=11111111111.0*p; if a*b=s then Write(a:5:0,'*',b:6:0,'=',s:11:0); end; Readkey; end. {Ответ: 21649*513239=11111111111} |
program z3_18; uses crt; var a,b:integer; Label 1,2; Begin ClrScr; Randomize; a:=1000+Random(999); 2: Write('Введите пароль-'); Read(b); if b=a then begin Writeln('Верно'); goto 1; end; Writeln('неверно'); goto 2; 1: Readkey; end.
|
|
program z3_19; uses crt; var i,n,k,z: integer; s:real; Begin ClrScr; Write('n='); Read(n); z:=1;s:=1;k:=1; for i:=1 to n do begin k:=k*2; z:=-z; s:=s+ z*1/k; end; write('s=',s:5:6); Readkey; end. |
program z3_20; uses crt; var i,n: integer; s,k:real; Begin ClrScr; Write('n='); Read(n); for i:=1 to n do begin k:=k+sin(i); s:=s+1/k; end; write('s=',s:5:6); Readkey; end. |
|
program z3_21; uses crt; var i,n: integer; s,k:real; Begin ClrScr; Write('n='); Read(n); k:=2; s:=1; for i:=1 to n do begin s:=s*k/(k+1); k:=k+2 end; write('s=',s:5:6); Readkey; end. |
program z3_22; uses crt; var i,n: integer; p,s1,s2:real; Begin ClrScr; Write('n='); Read(n); p:=1; for i:=1 to n do begin s1:=s1+cos(i); s2:=s2+sin(i); p:=p*s1/s2; end; write('p=',p:5:6); Readkey; end. |
|
program z3_23; uses crt; var i,k,z: integer; x,s,s1,s2:real; Begin ClrScr; Write('x='); Read(x); s1:=x; s2:=1;z:=1;k:=1; For i:=1 to 7 do begin s:=s+z*s1/s2; s1:=s1*x*x; s2:=s2*(k+1)*(k+2); z:=-z; k:=k+2; end; write('s=',s:5:6); Readkey; end. |
program z3_24; uses crt; var i,n: integer; x,s,p:real; Begin ClrScr; Write('n='); Read(n); Write('x='); Read(x); p:=x; For i:=1 to n do begin p:=sin(p); s:=s+p; end; write('s=',s:5:6); Readkey; end. |
|
program z3_25; uses crt; var i,n: integer; a,p:real; Begin ClrScr; Write('n='); Read(n); Write('a='); Read(a); p:=1; For i:=0 to n-1 do p:=p*(a-i); write('p=',p:5:6); Readkey; end. |
program z3_26; uses crt; var i,n: integer; a,p:real; Begin ClrScr; Write('n='); Read(n); Write('a='); Read(a); p:=1; For i:=0 to n do p:=p*(a-i*n); write('p=',p:5:6); Readkey; end. |
|
program z3_27; uses crt; var i,n: integer; a,s,k:real; Begin ClrScr; Write('n='); Read(n); Write('a='); Read(a); k:=1; s:=1/a; For i:=2 to n do begin k:=k*a*a; s:=s+1/k; end; write('s=',s:5:6); Readkey; end. |
program z3_28; uses crt; var n: integer; x,d:real; Begin ClrScr; Write('x='); Read(x); n:=2; d:=1; While n<=64 do begin d:=d*(x-n+1)/(x-n); n:=n*2 end; write('d=',d:5:6); Readkey; end. |
|
program z3_29; uses crt; var p,x:real; Begin ClrScr; x:=0.1; p:=1; While x<=10 do begin p:=p*(1+sin(x)); x:=x+0.1; end; write('p=',p:5:25); Readkey; end. |
program z3_30; uses crt; var i,n: integer; s,x,a:real; Begin ClrScr; Write('n='); Read(n); Write('x='); Read(x); a:=x; For i:=1 to n do begin s:=s+sin(a); a:=a*x; end; write('s=',s:5:25); Readkey; end. |
|
program z3_31; uses crt; var j,i,n:integer; s,p :Longint; Begin ClrScr; Write('n<8, n='); Read(n); For i:=1 to n do begin p:=1; For j:=i to 2*i do p:=p*j; s:=s+p; end; write('s=',s); Readkey; end. |
program z3_32; uses crt; var i,n:integer; p:Real; Begin ClrScr; Write('n>2, n='); Read(n); p:=1; For i:=2 to n do p:=p*(1-1/(i*i)); write('p=',p:5:6); Readkey; end. |
|
program z3_33; uses crt; var i,n:integer; p:Real; Begin ClrScr; Write('n='); Read(n); p:=1; i:=2; While i<=2*n do begin p:=p*(1-1/i); i:=i+2; end; write('p=',p:5:6); Readkey; end. |
program z3_34; uses crt; var i,n:integer; p,s:Longint; Begin ClrScr; Write('n>1,n<26 n='); Read(n); p:=1;s:=1; For i:=2 to n do begin p:=p*i; s:=s+p; end; write('s=',s); Readkey; end. |
|
program z3_35; uses crt; var i,n:integer; s:Real; Begin ClrScr; Write('n='); Read(n); i:=3; While i<=2*n+1 do begin s:=s+(1/(i*i)); i:=i+2; end; write('s=',s:5:6); Readkey; end. |
program z3_36; uses crt; var i:integer; a,b,c: Longint; Begin ClrScr; a:=1; b:=1; For i:=2 to 40 do begin c:=b+a; a:=b; b:=c; end; write('c=',c); Readkey; end. |
|
program z3_37; uses crt; var i,n:integer; y:Longint; Begin ClrScr; Write('n<=23 n='); Read(n); y:=1; i:=1; While i<=2*n-1 do begin y:=y*i; i:=i+2; end; write('y=',y); Readkey; end. |
program z3_38; uses crt; var i,n:integer; y:Longint; Begin ClrScr; Write('n<=9 n='); Read(n); y:=1; i:=2; While i<=2*n do begin y:=y*i; i:=i+2; end; write('y=',y); Readkey; end. |
|
program z3_39; uses crt; var i,n: integer; s,x,a:real; Begin ClrScr; Write('n='); Read(n); Write('x='); Read(x); a:=x; For i:=1 to n do begin s:=s+cos(a); a:=a*x; end; write('s=',s:5:25); Readkey; end. |
program z3_40; uses crt; var y,x:real; Begin ClrScr; x:=1; While x<=2 do begin y:=y+sin(x); x:=x+0.1; end; write('y=',y:5:25); Readkey; end.
|
|
program z3_41; uses crt; var i,n,k:integer; c:Real; Begin ClrScr; Write('n='); Read(n); Write('k='); Read(k); c:=0; For i:=n downto 1 do c:=sqrt(c+k*i); write('c=',c:5:6); Readkey; end. |
program z3_42; uses crt; var i,n,k:integer; c:Real; Begin ClrScr; Write('n='); Read(n); For i:=1 to n do c:=c+(i+1)/i; write('c=',c:5:6); Readkey; end. |
|
program z3_43; uses crt; var a,z,k,n:integer; s,e,b:Real; Begin ClrScr; Write('e='); Read(e); s:=0;z:=1;n:=1;b:=1; While b>=e do begin s:=s+z*b; z:=-z;n:=n+1; a:=1; for k:=1 to n do a:=a*n; b:=1/a; end; write('s=',s:5:6); Readkey; end. |
program z3_44; uses crt; var a,b:integer; s,e,c:Real; Begin ClrScr; Write('e='); Read(e); s:=0;a:=2;b:=3;c:=1/a+1/b; While c>=e do begin s:=s+c; a:=a*2; b:=b*3; c:=1/a+1/b; end; write('s=',s:5:6); Readkey; end.
|
|
program z3_45; uses crt; var a,b:integer; s,e,c:Real; Begin ClrScr; Write('e='); Read(e); s:=0;a:=1;b:=2;c:=a/b; While c>=e do begin s:=s+c; a:=a+2; b:=b*2; c:=a/b; end; write('s=',s:5:6); Readkey; end. |
program z3_46; uses crt; var a:integer; s,e,c:Real; Begin ClrScr; Write('e='); Read(e); s:=0;a:=1;c:=1/4; While c>=e do begin s:=s+c; a:=a+3; c:=1/(a*(a+3)); end; write('s=',s:5:6); Readkey; end.
|
|
program z3_47; uses crt; var a,b,k:integer; s,e,c:Real; Begin ClrScr; Write('e='); Read(e); s:=0;a:=2;b:=1;c:=2;k:=1; While c>=e do begin s:=s+c; k:=k+1; a:=a*2; b:=b*k; c:=a/b; end; write('s=',s:5:6); Readkey; end. |
program z3_48; uses crt; var a,b,k:integer; s,e,c:Real; Begin ClrScr; Write('e='); Read(e); s:=0;a:=1;b:=2;c:=1/2;k:=1; While c>=e do begin s:=s+c; k:=k+1; a:=a*k; b:=b*(2*k-1)*2*k; c:=a/b; end; write('s=',s:5:6); Readkey; end. |
|
program z3_49; uses crt; var a,b,k,n:integer; s,e,c:Real; Begin ClrScr; Write('e='); Read(e); s:=0;n:=1;a:=1;b:=1;c:=1; While c>=e do begin s:=s+c; n:=n+1; a:=a*n; for k:=1 to n do b:=b*n; c:=a/b; end; write('s=',s:5:6); Readkey; end. |
program z3_50; uses crt; var d,a,b,k,n:integer; s,e,c:Real; Begin ClrScr; Write('e='); Read(e); s:=0;n:=1;a:=1;b:=1;d:=2;c:=2; While c>=e do begin s:=s+c; b:=1; n:=n+1; a:=a*n; d:=d*2; for k:=1 to n do b:=b*n; c:=d*a/b; end; write('s=',s:5:6); Readkey; end. |
|
program z3_51; uses crt; var a,b,k,d:integer; s,e,c:Real; Begin ClrScr; Write('e='); Read(e); s:=0;a:=1;b:=2;d:=3;c:=d*a/b;k:=1; While c>=e do begin s:=s+c; k:=k+1; a:=a*k; b:=b*(2*k-1)*2*k; d:=d*3; c:=d*a/b; end; write('s=',s:5:6); Readkey; end. |
program z3_52; uses crt; var a,b,k,n,d:integer; s,e,c:Real; Begin ClrScr; Write('e='); Read(e); s:=0;n:=1;a:=1;b:=1;d:=3;c:=a/(d*b); While c>=e do begin s:=s+c; n:=n+1; a:=a*n; d:=d*3; for k:=1 to n do b:=b*n; c:=a/(d*b); end; write('s=',s:5:6); Readkey; end. |
|
program z3_53; uses crt; var a,b,k,n:integer; c,e,s:Real; Begin ClrScr; Write('e='); Read(e); s:=0;n:=1;a:=2;b:=2;c:=1/b; While c>=e do begin s:=s+c; n:=n+1; a:=a*2; b:=1; for k:=n+1 to a do b:=b*k; c:=1/b; end; write('s=',s:5:6); Readkey; end. |
program z3_54; uses crt; var a,b,n:integer; c,e,s:Real; Begin ClrScr; Write('e<1, e='); Read(e); n:=2;a:=4;b:=1;c:=4;s:=2; While c>=e do begin s:=s+c; n:=n+1; a:=a*2; b:=b*(n-1); c:=a/b; end; write('s=',n,s:5:6); Readkey; end. |
|
program z3_55; uses crt; var n:integer; a1,an,e:Real; Begin ClrScr; Write('e<0.001, e='); Read(e); n:=2;a1:=0;an:=arctan(a1)+1; While abs(an-a1)>=e do begin writeln(a1:5:6); n:=n+1; a1:=an; an:=arctan(a1)+1; end; writeln(a1:5:6); writeln(an:5:6); writeln('n=',n); Readkey; end. |
program z3_56; uses crt; var n:integer; a1,an,e:Real; Begin ClrScr; Write('e<0.001, e='); Read(e); n:=2;a1:=2;an:=2+1/a1; While abs(an-a1)>=e do begin writeln(a1:5:6); n:=n+1; a1:=an; an:=2+1/a1; end; writeln(a1:5:6); writeln(an:5:6); writeln('n=',n); Readkey; end. |
|
program z3_57; uses crt; var n:integer; a1,an,e:Real; Begin ClrScr; Write('e<0.001, e='); Read(e); n:=2;a1:=0.5;an:=sin(a1)/cos(a1)/2; While abs(an-a1)>=e do begin writeln(a1:5:6); n:=n+1; a1:=an; an:=sin(a1)/cos(a1)/2; end; writeln(a1:5:6); writeln(an:5:6); writeln('n=',n); Readkey; end. |
program z3_58; uses crt; var n:integer; a1,an,e:Real; Begin ClrScr; Write('e<0.001, e='); Read(e); n:=2;a1:=1/4;an:=1/16; While abs(an-a1)>=e do begin writeln(a1:5:6); n:=n+1; a1:=an; an:=1/(4*n*n); end; writeln(a1:5:6); writeln(an:5:6); writeln('n=',n); Readkey; end. |
|
program z3_59; uses crt; var n:integer; a1,an,e:Real; Begin ClrScr; Write('e<0.001, e='); Read(e); n:=2;a1:=0.5;an:=cos(a1)/2; While abs(an-a1)>=e do begin writeln(a1:5:6); n:=n+1; a1:=an; an:=cos(a1)/2; end; writeln(a1:5:6); writeln(an:5:6); writeln('n=',n); Readkey; end. |
program z3_60; uses crt; var n:integer; a1,an,e:Real; Begin ClrScr; Write('e<0.001, e='); Read(e); n:=2;a1:=2;an:=(2+a1*a1)/(2*a1); While abs(an-a1)>=e do begin writeln(a1:5:6); n:=n+1; a1:=an; an:=(2+a1*a1)/(2*a1); end; writeln(a1:5:6); writeln(an:5:6); writeln('n=',n); Readkey; end. |
|
program z3_61; uses crt; var n:integer; a1,a2,an,e:Real; Begin ClrScr; Write('e<0.001, e='); Read(e); n:=3;a1:=1;a2:=2;an:=(a2+a1)/2; While abs(an-a1)>=e do begin writeln(a1:5:6); n:=n+1; a1:=a2; a2:=an; an:=(a2+a1)/2; end; writeln(a2:5:6); writeln(an:5:6); writeln('n=',n); Readkey; end. |
program z3_62; uses crt; var n:integer; a1,an,e:Real; Begin ClrScr; Write('e<0.001, e='); {n=2,3,4,5.....} Read(e); n:=3;a1:=exp(sqr(ln(2))-2*ln(ln(2)));an:=exp(sqr(ln(n))-n*ln(ln(n))); While abs(an-a1)>=e do begin writeln(a1:5:6); n:=n+1; a1:=an; an:=exp(sqr(ln(n))-n*ln(ln(n))); end; writeln(a1:5:6); writeln(an:5:6); writeln('n=',n); Readkey; end. |
|
program z3_63; uses crt; var n:integer; a1,an,e:Real; Begin ClrScr; Write('e<0.001, e='); Read(e); n:=2;a1:=0;an:=exp(-a1); While abs(an-a1)>=e do begin writeln(a1:5:6); n:=n+1; a1:=an; an:=exp(-a1); end; writeln(a1:5:6); writeln(an:5:6); writeln('n=',n); Readkey; end. |
program z3_64; uses crt; var n:integer; a1,an,e:real; Begin ClrScr; Write('e<0.001, e='); Read(e); n:=2;a1:=1;an:=sin(a1*a1)/(2*a1*a1); While abs(an-a1)>=e do begin writeln(a1:5:6); n:=n+1; a1:=an; an:=sin(a1*a1)/(2*a1*a1); end; writeln(a1:5:12); writeln(an:5:12); writeln('n=',n); Readkey; end. |
|
program z3_65; uses crt; var n:integer; an,a1,e:Real; Begin ClrScr; Write('e<0.001, e='); Read(e); n:=1;an:=1; While abs(an*an-2)>=e do begin writeln(an:5:6); n:=n+1; a1:=an; an:=(a1+2/a1)/2; end; writeln(an:5:6); writeln('n=',n); Readkey; end. |
program z3_66; uses crt; var n,b,z:integer; an,a1,e:Real; Begin ClrScr; Write('e<0.001, e='); Read(e); n:=1;b:=2;an:=-1/2;z:=-1; While abs(an)>=e do begin writeln(an:5:6); n:=n+1; z:=-z; a1:=an; b:=b*2; an:=z/b; end; writeln(an:5:6); writeln('n=',n); Readkey; end. |
|
program z3_67; uses crt; var n,b,z,c:integer; an,a1,e:Real; Begin ClrScr; Write('e<0.001, e='); Read(e); n:=1;b:=2;c:=1;z:=-1;an:=z*b/c; While abs(an)>=e do begin writeln(an:5:12); n:=n+1; z:=-z; a1:=an; b:=b*2; c:=c*n; an:=z*b/c; end; writeln(an:5:12); writeln('n=',n); Readkey; end. |
program z3_68; uses crt; var n:integer; an,a1,e:Real; Begin ClrScr; Write('e<0.001, e='); Read(e); n:=1;an:=1/4; While an>=e do begin writeln(an:5:12); n:=n+1; a1:=an; an:=1/sqr(n+1); end; writeln(an:5:12); writeln('n=',n); Readkey; end. |
|
program z3_69; uses crt; var a,b,h,x,fx:Real; Begin ClrScr; Write('Введите отрезок a,b='); Read(a,b); Write('Введите величину шага h='); Read(h); Writeln(' x ',' fx '); x:=a; While x<=b do begin fx:=x-sin(x); writeln(x:2:5,' ',fx:5:6); x:=x+h; end; Readkey; end. |
program z3_70; uses crt; var a,b,h,x,fx:Real; Begin ClrScr; Write('Введите отрезок a,b='); Read(a,b); Write('Введите величину шага h='); Read(h); Writeln(' x ',' fx '); x:=a; While x<=b do begin fx:=sqr(sin(x)); writeln(x:2:5,' ',fx:5:6); x:=x+h; end; Readkey; end. |
|
program z3_71; uses crt; var a,b,h,x,fx:Real; Begin ClrScr; Write('Введите отрезок a,b='); Read(a,b); Write('Введите величину шага h='); Read(h); Writeln(' x ',' fx '); x:=a; While x<=b do begin fx:=2*cos(x)-1; writeln(x:2:5,' ',fx:5:6); x:=x+h; end; Readkey; end. |
program z3_72; uses crt; var a,b,h,x,fx:Real; Begin ClrScr; Write('Введите отрезок a,b='); Read(a,b); Write('Введите величину шага h='); Read(h); Writeln(' x ',' fx '); x:=a; While x<=b do begin fx:=sin(x)/cos(x); writeln(x:2:5,' ',fx:5:6); x:=x+h; end; Readkey; end. |
|
program z3_73; uses crt; var a,b,h,x,fx:Real; Begin ClrScr; Write('Введите отрезок a,b='); Read(a,b); Write('Введите величину шага h='); Read(h); Writeln(' x ',' fx '); x:=a; While x<=b do begin fx:=cos(x)/sin(x)+1; writeln(x:2:5,' ',fx:5:6); x:=x+h; end; Readkey; end. |
program z3_74; uses crt; var a,b,h,x,fx:Real; Begin ClrScr; Write('Введите отрезок a,b='); Read(a,b); Write('Введите величину шага h='); Read(h); Writeln(' x ',' fx '); x:=a; While x<=b do begin fx:=sin(x)-cos(x); writeln(x:2:5,' ',fx:5:6); x:=x+h; end; Readkey; end. |
|
program z3_75; uses crt; var a,b,h,x,fx:Real; Begin ClrScr; Write('Введите отрезок a,b='); Read(a,b); Write('Введите величину шага h='); Read(h); Writeln(' x ',' fx '); x:=a; While x<=b do begin fx:=sin(x)*x; writeln(x:2:5,' ',fx:5:6); x:=x+h; end; Readkey; end. |
program z3_76; uses crt; var a,b,h,x,fx:Real; Begin ClrScr; Write('Введите отрезок a,b='); Read(a,b); Write('Введите величину шага h='); Read(h); Writeln(' x ',' fx '); x:=a; While x<=b do begin fx:=sin(1/x)+2; writeln(x:2:5,' ',fx:5:6); x:=x+h; end; Readkey; end. |
|
program z3_77; uses crt; var a,b,h,x,fx:Real; Begin ClrScr; Write('Введите отрезок a,b='); Read(a,b); Write('Введите величину шага h='); Read(h); Writeln(' x ',' fx '); x:=a; While x<=b do begin fx:=x*cos(1/x)+2; writeln(x:2:5,' ',fx:5:6); x:=x+h; end; Readkey; end. |
program z3_78; uses crt; var a,b,h,x,fx:Real; Begin ClrScr; Write('Введите отрезок a,b='); Read(a,b); Write('Введите величину шага h='); Read(h); Writeln(' x ',' fx '); x:=a; While x<=b do begin fx:=2*sqr(sin(x))+1; writeln(x:2:5,' ',fx:5:6); x:=x+h; end; Readkey; end. |
|
program z3_79; uses crt; var a,b,h,x,fx:Real; Begin ClrScr; Write('Введите отрезок a,b='); Read(a,b); Write('Введите величину шага h='); Read(h); Writeln(' x ',' fx '); x:=a; While x<=b do begin fx:=sqrt(x)*sqr(cos(x)); writeln(x:2:5,' ',fx:5:6); x:=x+h; end; Readkey; end. |
program z3_80; uses crt; var a,b,h,x,fx:Real; Begin ClrScr; Write('Введите отрезок a,b='); Read(a,b); Write('Введите величину шага h='); Read(h); Writeln(' x ',' fx '); x:=a; While x<=b do begin fx:=sin(x)+sin(x)/cos(x); writeln(x:2:5,' ',fx:5:6); x:=x+h; end; Readkey; end.
|
|
program z3_81; uses crt; var a,b,h,x,fx:Real; Begin ClrScr; Write('Введите отрезок a,b='); Read(a,b); Write('Введите величину шага h='); Read(h); Writeln(' x ',' fx '); x:=a; While x<=b do begin fx:=cos(x)+cos(x)/sin(x); writeln(x:2:5,' ',fx:5:6); x:=x+h; end; Readkey; end. |
program z3_82; uses crt; var a,b,h,x,fx:Real; Begin ClrScr; Write('Введите отрезок a,b='); Read(a,b); Write('Введите величину шага h='); Read(h); Writeln(' x ',' fx '); x:=a; While x<=b do begin fx:=2*sin(x/2)/cos(x/2)+1; writeln(x:2:5,' ',fx:5:6); x:=x+h; end; Readkey; end. |
|
program z3_83; uses crt; var a,b,h,x,fx:Real; Begin ClrScr; Write('Введите отрезок a,b='); Read(a,b); Write('Введите величину шага h='); Read(h); Writeln(' x ',' fx '); x:=a; While x<=b do begin fx:=sin(x/2)/cos(x/2)+2*cos(x); writeln(x:2:5,' ',fx:5:6); x:=x+h; end; Readkey; end. |
program z3_84; uses crt; var a,b,h,x,fx:Real; Begin ClrScr; Write('Введите отрезок a,b='); Read(a,b); Write('Введите величину шага h='); Read(h); Writeln(' x ',' fx '); x:=a; While x<=b do begin fx:=cos(x/3)/sin(x/3)+0.5*sin(x); writeln(x:2:5,' ',fx:5:6); x:=x+h; end; Readkey; end. |
|
program z3_85; uses crt; var a,b,h,x,fx:Real; Begin ClrScr; Write('Введите отрезок a,b='); Read(a,b); Write('Введите величину шага h='); Read(h); Writeln(' x ',' fx '); x:=a; While x<=b do begin fx:=0.5*sin(x/4)+1; writeln(x:2:5,' ',fx:5:6); x:=x+h; end; Readkey; end. |
program z3_86; uses crt; var a,b,h,x,fx:Real; Begin ClrScr; Write('Введите отрезок a,b='); Read(a,b); Write('Введите величину шага h='); Read(h); Writeln(' x ',' fx '); x:=a; While x<=b do begin fx:=2*cos(sqrt(x))+0.5; writeln(x:2:5,' ',fx:5:6); x:=x+h; end; Readkey; end. |
|
program z3_87; uses crt; var a,b,h,x,fx:Real; Begin ClrScr; Write('Введите отрезок a,b='); Read(a,b); Write('Введите величину шага h='); Read(h); Writeln(' x ',' fx '); x:=a; While x<=b do begin fx:=sqr(x)*sqr(sin(x))+1; writeln(x:2:5,' ',fx:5:6); x:=x+h; end; Readkey; end. |
program z3_88; uses crt; var a,b,h,x,fx:Real; Begin ClrScr; Write('Введите отрезок a,b='); Read(a,b); Write('Введите величину шага h='); Read(h); Writeln(' x ',' fx '); x:=a; While x<=b do begin fx:=0.5*cos(x/4)/sin(x/4)+4; writeln(x:2:5,' ',fx:5:6); x:=x+h; end; Readkey; end. |
|
program z3_89; uses crt; var a,b,h,x,fx:Real; Begin ClrScr; Write('Введите отрезок a,b='); Read(a,b); Write('Введите величину шага h='); Read(h); Writeln(' x ',' fx '); x:=a; While x<=b do begin fx:=sqr(sin(x))-cos(2*x); writeln(x:2:5,' ',fx:5:6); x:=x+h; end; Readkey; end. |
program z3_90; uses crt; var a,b,h,x,fx:Real; Begin ClrScr; Write('Введите отрезок a,b='); Read(a,b); Write('Введите величину шага h='); Read(h); Writeln(' x ',' fx '); x:=a; While x<=b do begin fx:=7*sqr(sin(x))-0.5*cos(x); writeln(x:2:5,' ',fx:5:6); x:=x+h; end; Readkey; end. |
|
program z3_91; uses crt; var a,b,h,x,fx:Real; Begin ClrScr; Write('Введите отрезок a,b='); Read(a,b); Write('Введите величину шага h='); Read(h); Writeln(' x ',' fx '); x:=a; While x<=b do begin fx:=-cos(2*x); writeln(x:2:5,' ',fx:5:6); x:=x+h; end; Readkey; end. |
program z3_92; uses crt; var a,b,h,x,fx:Real; Begin ClrScr; Write('Введите отрезок a,b='); Read(a,b); Write('Введите величину шага h='); Read(h); Writeln(' x ',' fx '); x:=a; While x<=b do begin fx:=sin(2*x)/cos(2*x)-3; writeln(x:2:5,' ',fx:5:6); x:=x+h; end; Readkey; end. |
|
program z3_93; uses crt; var a,b,h,x,fx:Real; Begin ClrScr; Write('Введите отрезок a,b='); Read(a,b); Write('Введите величину шага h='); Read(h); Writeln(' x ',' fx '); x:=a; While x<=b do begin fx:=sin(x)-0.5*cos(x); writeln(x:2:5,' ',fx:5:6); x:=x+h; end; Readkey; end. |
program z3_94; uses crt; var a,b,h,x,fx:Real; Begin ClrScr; Write('Введите отрезок a,b='); Read(a,b); Write('Введите величину шага h='); Read(h); Writeln(' x ',' fx '); x:=a; While x<=b do begin fx:=x/cos(x); writeln(x:2:5,' ',fx:5:6); x:=x+h; end; Readkey; end. |
|
program z3_95; uses crt; var n,s:Longint; b,c,i:integer; a :string; Begin ClrScr; Write('Введите число-'); Read(n); Str(n,a); val(a[1],b,i); val(a[length(a)],c,i); Writeln('s=',b+c); Readkey; end. |
program z3_96; uses crt; var n:Longint; k:integer; a :string; Begin ClrScr; Write('Введите число-'); Read(n); Str(n,a); k:=length(a); a:=a[k]+copy(a,2,k-2)+a[1]; val(a,n,k); Writeln('n=',n); Readkey; end. |
|
program z3_97; uses crt; var p,i,j,n,m,k1,k2:integer; a,b :string; Begin ClrScr; Write('Введите 1 число m='); Read(m); Write('Введите 2 число n='); Read(n); Str(m,a);Str(n,b); k1:=length(a); k2:=length(b); For i:=1 to k1 do For j:=1 to k2 do if a[i]=b[j] then begin Writeln('совпадающая цифра-',a[i]); p:=1; end; if p=0 then Writeln('совпадающая цифр нет'); Readkey; end. |
program z3_98; uses crt; var i,j,n,k1,k:integer; b :string; Begin ClrScr; Write('Введите число n='); Read(n); Str(n,b); k:=length(b); For i:=1 to k-1 do For j:=i+1 to k do if b[i]=b[j] then k1:=k1+1; if k1=3 then Writeln('в записи числа присутствуют три одинаковых цифры') else Writeln('в записи числа трех одинаковых цифр нет'); Readkey; end. |
|
program z3_99; uses crt; var n,k:integer; a,b :string; Begin ClrScr; Write('Введите число n='); Read(n); Write('Введите цифру k='); Read(k); Str(k,a); Str(n,b); b:=a+b+a; val(b,n,k); Write('искомое число-',n); Readkey; end. |
program z3_100; uses crt; var p:Longint; n,k,m,i,k1:integer; a,b :string; Begin ClrScr; Write('Введите числа n,k='); Read(n,k); Write('Введите цифру m='); Read(m); p:=1; For i:=1 to k do p:=p*n; Str(p,a); Str(m,b); For i:=1 to length(a) do if b=a[i] then k1:=k1+1; Write('В записи числа-',a,' цифра-',m); if k1<>0 then Write(' присутствует') else Write(' отсутствует'); Readkey; end. |
|
program z3_101; uses crt; var s1,cod,s,n,k,i,j,a,b:integer; a1:string; Begin ClrScr; Write('Сколько цифр в числе n='); Read(n); Write('Введите число k='); Read(k); a:=1;b:=9; For i:=1 to n-1 do Begin a:=a*10; b:=10*b+9 End; For i:=a to b do Begin str(i,a1); s:=0; For j:=1 to n do Begin val(a1[j],s1,cod); s:=s+s1; end; If s=k then Write(i:5); end; Readkey; end. |
program z3_102; uses crt; var a,b,c,n:integer; m:array[1..12] of integer; Begin ClrScr; Write('Введите число a='); Read(a); Write('Введите месяц b='); Read(b); Write('Введите год c='); Read(c); a:=1;b:=9; For i:=1 to n-1 do Begin a:=a*10; b:=10*b+9 End; For i:=a to b do Begin str(i,a1); s:=0; For j:=1 to n do Begin val(a1[j],s1,cod); s:=s+s1; end; If s=k then Write(i:5); end; Readkey; end. |
|
program z3_103; uses crt; var n,i,k,d,max,min:integer; n1: string; Begin ClrScr; Write('Введите число n, n='); Read(n); str(n,n1); val(n1[1],d,k); min:=d; max:=d; For i:=2 to length(n1) do Begin val(n1[i],d,k); If min>d then min:=d; If max<d then max:=d; end; Writeln('Число ',n); Writeln('Максимальная цифра числа ',max); Writeln('Минимальная цифра числа ',min); Readkey; end. |
program z3_104; uses crt; Label 1; var p,k,n,proiz,z:integer; Begin ClrScr; Write('Введите число p='); Read(p); n:=0; proiz:=1; k:=-1; z:=0; While z<>1 do Begin k:=k+2; n:=n+1; proiz:=proiz*k; if proiz=p then Begin writeln('Количество множителей ',n); z:=1; end; If proiz>p then begin writeln(p,' не является произведением'); goto 1; end; end; 1:Readkey; end.
|
|
program z3_105; uses crt; var a,b,c,d,x,s,maxd:integer; Begin ClrScr; Write('Введите число [a;b]='); Read(a,b); maxd:=0; For x:=a to b do Begin s:=0; For d:=1 to x do if x mod d=0 then s:=s+1; if maxd<s then begin c:=x; maxd:=s; end; end; writeln('на отрезке [',a,';',b,'] число ',c,' имеет делителей ',maxd); Readkey; end. |
program z3_106; uses crt; var k,m,n,x,k1,m1,n1,p:integer; Begin ClrScr; Write('Введите остаток от деления Х на 3 k='); Read(k); Write('Введите остаток от деления Х на 5 m ='); Read(m); Write('Введите остаток от деления Х на 7 n='); Read(n); For x:=1 to 99 do Begin k1:=x mod 3; m1:=x mod 5; n1:=x mod 7; If (k1=k) and (m1=m) and (n1=n) then Begin p:=1; Writeln('x=',x); End; End; If p=0 then Writeln('такого числа нет'); Readkey; end. |
|
program z3_107; uses crt; Label 1; var n,i,k,j:integer; s: string; Begin ClrScr; Write('Введите число n, n='); Read(n); str(n,s); k:=length(s); For i:=1 to k-1 do For j:=i+1 to k do if s[i]=s[j] then begin Write('имеются одинаковые цифры'); goto 1; end; Writeln('все цифры различные'); 1: Readkey; end. |
program z3_108; uses crt; var i,j,p,a,b,c,d,dl,s,ost:integer; Label 1,2; Begin ClrScr; 1: Write('Введите a,b,c,d='); Read(a,b,c,d); If (a=0) or (d=0) then Begin Writeln('повторите ввод'); goto 1; end; Write('Корни: '); For j:=1 to abs(d) do Begin ost:=abs(d) mod j; if ost<>0 then goto 2; dl:=j; for i:=1 to 2 do begin s:=a*dl*dl*dl+b*dl*dl+c*dl+d; if s=0 then begin p:=1; writeln(dl,' '); end; dl:=-dl; end; 2: end; If p=0 then Writeln('целых корней нет'); Readkey; end. |
|
program z3_109; uses crt; var n,n1:Longint; k,i,d:integer; s,s1: string; Begin ClrScr; Write('Введите число n, n='); Read(n); str(n,s); k:=length(s); For i:=k downto 1 do s1:=s1+s[i]; val(s1,n1,d); If n1>32767 then Write('Переполнение!!!') else Writeln('Результат перестановки: ',n1); Readkey; end. |
program z3_110; uses crt; var i,d,n:integer; Begin ClrScr; Write('Введите n='); Read(n); Write('Делители: '); For i:=1 to n do Begin if n mod i=0 then Write(i,','); end; Readkey; end.
|
|
program z3_111; uses crt; var i,j,n,s:integer; Begin ClrScr; Write('Введите n='); Read(n); Write('Совершенные числа: '); For i:=1 to n-1 do begin s:=0; For j:=1 to i-1 do Begin if i mod j=0 then s:=s+j end; if i=s then Write(i,','); end; Readkey; end. |
program z3_113; uses crt; Label 1; var x,y,z,r,v,s:integer; Begin ClrScr; x:=1; For y:=0 to 9 do For z:=0 to 9 do For r:=1 to 31 do Begin v:=100+10*y+z; s:=x*x+y*y+z*z+r; if v=s then goto 1 End; 1:Write('Возраст -',v,' лет',' число рождения - ',r); Readkey; end. |
|
program z3_114; uses crt; Label 1,2; var n,y,d,ost:integer; Begin ClrScr; 1:Write('Введите число n>2, n='); Read(n); Write('Простые числа от 3 до ',n,': '); If n<=2 then goto 1; For y:=3 to n do Begin For d:=2 to y-1 do Begin ost:=y mod d; if ost=0 then goto 2; End; Write(y,','); 2: end; Readkey; end. |
program z3_115; uses crt; var s,n,m,p,i,k,j,d:integer; n1: string; Begin ClrScr; Write('Введите число n, n='); Read(n); Write('Введите число m, m='); Read(m); For i:=1 to n-1 do Begin str(i,n1); s:=0; For j:=1 to length(n1) do Begin val(n1[j],d,k); s:=s+d; End; If s*s=m then Begin p:=p+1; Writeln('Число-',i,' квадрат суммы его цифр ',s*s); end; end; if p=0 then Writeln('Таких чисел нет'); Readkey; end.
|
|
program z3_116; uses crt; var n,k,i,j,x,max:integer; Begin ClrScr; Write('введите число из [1;n] n='); Read(n); max:=0; For i:=1 to n do Begin k:=0; For j:=1 to i do if i mod j=0 then k:=k+j; if max<k then begin max:=k;x:=i; end; End; Writeln('Число ',x); Writeln('Максимальная сумма делителей ',max); Readkey; end. |
program z3_119; uses crt; var m,s,k,p:integer; Begin ClrScr; Write('m='); Read(m); Writeln('Числа'); for k:=10 to 99 do begin s:=sqr(k div 10)+sqr(k mod 10); If s=m then begin p:=1;Writeln(k);end; end; if p=0 then write('нет'); Readkey; end.
|
|
program z3_120; uses crt; Label 1; var i,j,n,n1,d:integer; s: string; Begin ClrScr; Write('Введите число n, n='); Read(n); for i:=1 to n do begin str(i,s); For j:=1 to length(s) do begin val(s[j],n1,d); if n1=0 then goto 1; If i mod n1<>0 then goto 1; end; Writeln('Результат число: ',i); 1: end; Readkey; end. |
program z3_131; uses crt; Label 1,2,3; const d: array[1..13] of integer=(1000,900,500,400,100,90,50,40,10,9,5,4,1); r: array[1..13] of string=('M','CM','D', 'CD','C','XC','L','XL','X','IX','V', 'IV','I'); var n,k:integer; rimsk: string; Begin ClrScr; Write('n='); Read(n); rimsk:=''; 1: k:=k+1; 3: if D[k]>n then goto 2; rimsk:=rimsk+r[k]; n:=n-d[k]; goto 3; 2: if n>0 then goto 1; Writeln ('Римская запись: ',rimsk); Readkey; end. |
|
program Z3_137; uses crt; var i:integer; begin clrscr; for i:=1 to 20 do writeln(i,' дюйм.=',i*2.5:2:1,' см.'); readkey; end. |
program Z3_138; uses crt; var i:integer; begin clrscr; for i:=20 to 50 do if (i mod 3=0) and (i mod 5<>0) then write(i,' '); readkey; end. |
|
program Z3_139; uses crt; var i:integer; begin clrscr; for i:=35 to 87 do if (i mod 7=1) or (i mod 7=2) or (i mod 7=5) then write(i,' '); readkey; end. |
program Z3_140; uses crt; var i,s:integer; begin clrscr; for i:=1 to 50 do if (i mod 5=0) and (i mod 7=0) then s:=s+i; writeln('s=',s); readkey; end. |
|
program Z3_143; uses crt; var i:integer; begin clrscr; for i:=10 to 99 do if (i mod 4=0) and (i mod 6<>0) then writeln(i,' '); readkey; end. |
program Z3_144; uses crt; var i:integer; p:longint; begin clrscr; p:=1; for i:=10 to 99 do if (i mod 13=0) and (i mod 2<>0) then p:=p*i; writeln('p=',p); readkey; end. |
|
program Z3_145; uses crt; var i,s:integer; begin clrscr; for i:=100 to 200 do if i mod 17 =0 then s:=s+i; writeln('s=',s); readkey; end. |
program Z3_146; uses crt; var i,a,kva:integer; begin clrscr; for i:=1 to 10 do begin write('Введите ',i,' число:');read(a); if a*a<100 then writeln('Число: ',a,' Квадрат числа: ',a*a); end; readkey; end. |
|
program Z3_147; uses crt; var i,n:integer; t,m:real; begin clrscr; write('Количество косилок: ');read(n); write('Время работы первой косилки (час.): ');read(m); t:=m; for i:=2 to n do begin t:=t+1/6; end; write('Время работы бригады: ',t:3:2, 'час.'); readkey; end. |
program Z3_148; uses crt; var n,i,k:integer; r,a,b,x,y:real; begin clrscr; write('Введите радиус окружности: '); read(r); write('Введите координаты центра, a,b=');read(a,b); write('Введите количество точек n='); read(n); for i:=1 to n do begin write('x',i,',y',i,'='); read(x,y); if sqr(x-a)+sqr(y-b)<=sqr(r) then k:=k+1; end; write('Количество точек: ',k); readkey; end. |
|
program Z3_149; uses crt; var n,i:integer; sr,r:real; begin clrscr; write('Введите n=');read(n); for i:=1 to n do begin write('Введите рост ',i,' ученика: '); read(r); sr:=sr+r; end; sr:=sr/n; write('Средний рост учащихся: ',sr:2:2); readkey; end. |
program Z3_150; uses crt; var a1,b1,a,b:integer; begin clrscr; write('Введите a<b, a,b=');read(a,b); write(a,'/',b,'='); a1:=a;b1:=b; while a1<> b1 do if a1>b1 then a1:=a1-b1 else b1:=b1-a1; write(a/a1:1:0,'/',b/b1:1:0); readkey; end.
|
|
program Z3_151; uses crt; var n,k,i:integer; begin clrscr; write('n=');read(n); for i:=1 to n-1 do begin if (i mod 2<> 0) and (i mod 3<>0) and (i mod 5<>0) then begin k:=k+1; write(i,' '); end; end; writeln('k=',k); readkey; end. |
program Z3_152; uses crt; var a,b,i:integer; begin clrscr; for i:=1000 to 9999 do begin a:=i div 100; b:=i mod 100; if ((a*b)<> 0) and (i mod (a*b)=0) then begin write('a=',a,' b=',b); end; end; readkey; end. {a=13, b=52 a=17, b=34 } |
|
program Z3_153; uses crt; label 1; var a,b,i:integer; begin clrscr; for i:=1000 to 9999 do begin a:=i div 100; b:=i mod 100; if (i mod 99=0) and ((a*100+b) mod 49=0) then begin write('a=',a,' b=',b); goto 1; end; end; 1: readkey; end. {a=48, b=51} |
program Z3_154; uses crt; var s:longint; i,n:integer; begin clrscr; for i:=10 to 99 do begin s:=s+i; end; write('s=',s); readkey; end.
|
|
program Z3_155; uses crt; var bn:longint; i,n:integer; begin clrscr; write('n=');read(n); bn:=1; for i:=1 to n do begin bn:=bn*i; write(bn,' '); end; readkey; end. |
program Z3_156; uses crt; var s,a,b,an:real; i,n:integer; begin clrscr; write('n=');read(n); write('a1=');read(an); a:=an; for i:=2 to n do begin write('a',i,'=');read(an); b:=an; s:=s+a*b; a:=b; end; Write('s= ',s:3:5); readkey; end. |
|
program Z3_157; uses crt; var m,k:real; i:integer; begin clrscr; write('Количество денег m=');read(m); write('Стоимость мороженного k=');read(k); m:=m-k; while m>0 do begin i:=i+1; m:=m-k; end; Write('Количество мороженных ',i,' шт.'); readkey; end. |
program Z3_158; uses crt; var m,s:real; i:integer; begin clrscr; write('Величина кредита m=');read(m); write('Критическая сумма долга s=');read(s); while m<s do begin i:=i+1; m:=m+m*0.2; end; Write('Долг достигнет критической суммы через ',i,' лет'); readkey; end. |
|
program Z3_159; uses crt; var i:integer; begin clrscr; while i<>100 do begin i:=i+2; write(i:4); end; readkey; end. |
program Z3_160; uses crt; var s,i:integer; begin clrscr; while i<>99 do begin s:=s+i; i:=i+1; end; writeln('Сумма нечетных чисел от 1 до 99:',s); readkey; end. |
|
program Z3_161; uses crt; var v,r:integer; begin clrscr; while r<>250 do begin write('Рост? ');read(r); v:=r-100; writeln('Идеальный вес: ',v,' кг.'); end; readkey; end. |
program Z3_162; uses crt; var m,r:integer; begin clrscr; write('Введите длину куска материи в м. M=');read(m); while m>0 do begin write('Сколько метров режем? ');read(r); m:=m-r; end; writeln('Столько резать нельзя. Можно ',m+r); readkey; end. |
|
program Z3_163; uses crt; var v,m,n:real; s:integer; begin clrscr; write('Понижение на M%, M=');read(m); write('Повышение на N%, N=');read(n); v:=200;s:=0; while v<=220 do begin s:=s+1; if s mod 2=0 then v:=v+v*n/100 else v:=v-v*m/100; end; writeln('v=',v:3:2,' ','s=',s); readkey; end. |
program Z3_164; uses crt; var sr:real; a,b:longint; begin clrscr; while sr<>999 do begin Write('a,b=');read(a,b); sr:=sqrt(abs(a*b)); end; writeln('a=',a,' ','b=',b); readkey; end.
|
|
program Z3_165; uses crt; var y:real; i:integer; begin clrscr; i:=1;y:=sin(i/100); while y>=0 do begin i:=i+1; y:=sin(i/100); end; writeln('y=',y:2:6,' ','i=',i); readkey; end. |
program Z3_166; uses crt; var a, y:real; i:integer; begin clrscr; write('Введите A>1, A=');read(a); y:=0;i:=0; while y<=a do begin i:=i+1; y:=y+1/i; end; writeln('y=',y:2:6,' ','i=',i); readkey; end. |
|
program Z3_167; uses crt; const c=0.000001; var e,a:real; k:integer; begin clrscr; e:=1;a:=1;k:=1; while a>c do begin e:=e+a; k:=k+1; a:=a*1/k; end; writeln('e=',e:2:6); readkey; end. |
program Z3_168; uses crt; var n,k,s:integer; begin clrscr; repeat k:=k+1; Write('n='); read(n); s:=s+n until s>100; Writeln('s=',s); Writeln('k=',k); readkey; end.
|
|
program Z3_169; uses crt; var n:integer; begin clrscr; repeat Write('пороль? '); read(n); until n=111; Write('МОЛОДЕЦ!!!'); readkey; end. |
program Z3_170F; uses crt; var a,st:real; t,n:integer; begin clrscr; write('a=');read(a); write('n=');read(n); st:=1; for t:=1 to n do st:=st*a; Write('st=',st:6:5); readkey; end. |
|
program Z3_170R; uses crt; var a,st:real; t,n:integer; begin clrscr; write('a=');read(a); write('n=');read(n); st:=1;t:=1; repeat st:=st*a; t:=t+1; until t>n; Write('st=',st:6:5); readkey; end. |
program Z3_170W; uses crt; var a,st:real; t,n:integer; begin clrscr; write('a=');read(a); write('n=');read(n); st:=1;t:=1; while t<=n do begin st:=st*a; t:=t+1; end; Write('st=',st:6:5); readkey; end. |
|
program Z3_171; uses crt; var t,m,b1,bm:integer; begin clrscr; write('m=');read(m); b1:=1; for t:=2 to m do begin bm:=b1*2; b1:=bm; end; Write('Бактерий ',bm); readkey; end. |
program Z3_172; uses crt; var n,d:integer; begin clrscr; write('n=');read(n); Write('Делители '); for d:=n downto 2 do if n mod d=0 then Write(d,' '); readkey; end. |
|
program Z3_173; uses crt; label 1; var n,m:integer; begin clrscr; write('n=');read(n); Write(n,'=',1); for m:=2 to n do 1:if n mod m=0 then begin Write('*',m); n:=n div m; goto 1; end; readkey; end. |
program Z3_174; uses crt; var a,max:real; begin clrscr; write('a=');read(a); max:=a; while a<>0 do begin write('a=');read(a); if max<a then max:=a; end; writeln('max=',max:4:2); readkey; end. |
|
program Z3_175; uses crt; var a,an,b,k:integer; begin clrscr; write('b=');read(b); a:=1;an:=1;k:=1; while an<=b do begin writeln('a',k,'=',an); k:=k+1; an:=2*a+1; a:=an; end; readkey; end. |
program Z3_176; uses crt; var x,s,p:real; n,i:integer; begin clrscr; write('x=');read(x); write('n=');read(n); p:=1;s:=0; for i:=1 to n do begin p:=p*(x/i); s:=s+p; end; writeln('s=',s:2:6); readkey; end. |
|
program Z3_177; uses crt; var a,b,y,max:real; begin clrscr; write('[a,b]=');read(a,b); max:=3*a*a+a-4; a:=a+0.1; while a<=b do begin y:=3*a*a+a-4; if max<y then max:=y; a:=a+0.1; end; writeln('max=',max:2:3); readkey; end. |
program Z3_178; uses crt; var i,n:integer; a1,an:real; begin clrscr; write('n=');read(n); a1:=1; for i:=2 to n do begin an:=i*a1+1/i; a1:=an; end; writeln('a',n,'=',an:2:12); readkey; end. |
|
program Z3_179; uses crt; var i,n:integer; a1,an:real; begin clrscr; write('n=');read(n); a1:=1; for i:=2 to n do begin an:=a1/i+i; a1:=an; end; writeln('a',n,'=',an:2:12); readkey; end. |
program Z3_181; uses crt; var x,y:integer; begin clrscr; for x:=1 to 9 do for y:=0 to 9 do if (x*x+y*y) mod 13= 0 then write(10*x+y,' '); readkey; end.
|
|
program Z3_182; uses crt; var x,y,z,n:integer; begin clrscr; write('введите число не более 27 N=');read(n); for x:=1 to 9 do for y:=0 to 9 do for z:=0 to 9 do if (x+y+z)= n then write(100*x+10*y+z,' '); readkey; end. |
program Z3_184; uses crt; var f1,f2,f,n:integer; begin clrscr; write('N=');read(n); f1:=1;f2:=1; write(f1,' ',f2,' '); f:=2; while f<n do begin write(f,' '); f1:=f2; f2:=f; f:=f1+f2; end; readkey; end. |
|
program Z3_185; uses crt; var i,j:integer; begin clrscr; randomize; for i:=1 to 10 do begin for j:=1 to 5 do write(random(37),' '); writeln; end; readkey; end. |