ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 11.01.2024
Просмотров: 54
Скачиваний: 1
ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
122 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
program z3_104;
uses crt;
Label 1; var p,k,n,proiz,z:integer;
Begin
ClrScr; Введите число 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 Количество множителей ',n); z:=1; end;
If proiz>p then begin writeln(p,' не является произведением goto 1; end; end;
1:Readkey; end.
123
program z3_105;
uses crt; var a,b,c,d,x,s,maxd:integer;
Begin
ClrScr; Введите число [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
program z3_106;
uses crt; var k,m,n,x,k1,m1,n1,p:integer;
Begin
ClrScr; Введите остаток отделения Хна Введите остаток отделения Хна Введите остаток отделения Хна) and (m1=m) and (n1=n) then
124
Begin p:=1;
Writeln('x=',x);
End;
End;
If p=0 then такого числа нет
Readkey; end.
program z3_107;
uses crt;
Label 1; var n,i,k,j:integer; s: string;
Begin
ClrScr; Введите число 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
имеются одинаковые цифры goto 1; end; все цифры различные
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: Введите a,b,c,d=');
Read(a,b,c,d);
If (a=0) or (d=0) then
Begin
повторите ввод goto 1; end;
125 Корни ');
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 целых корней нет
Readkey; end.
program z3_109;
uses crt; var n,n1:Longint; k,i,d:integer; s,s1: string;
Begin
ClrScr; Введите число 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 Переполнение) else Результат перестановки ',n1);
Readkey; end.
program z3_110;
uses crt; var i,d,n:integer;
126
Begin
ClrScr; Введите n=');
Read(n); Делители ');
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; Введите n=');
Read(n); Совершенные числа ');
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
127
Begin v:=100+10*y+z; s:=x*x+y*y+z*z+r; if v=s then goto 1
End; Возраст -',v,' лет' число рождения -
',r);
Readkey; end.
program z3_114;
uses crt;
Label 1,2; var n,y,d,ost:integer;
Begin
ClrScr; Введите число n>2, n=');
Read(n); Простые числа от 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; Введите число n, n=');
Read(n); Введите число m, m=');
Read(m);
For i:=1 to n-1 do
Begin str(i,n1);
128 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;
Число' квадрат суммы его цифр ',s*s); end; end; if p=0 then
Таких чисел нет
Readkey; end.
program z3_116;
uses crt; var n,k,i,j,x,max:integer;
Begin
ClrScr; введите число из [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
Readkey; end.
program z3_119;
uses crt; var m,s,k,p:integer;
Begin
ClrScr;
Write('m=');
129
Read(m); Числа 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 нет
Readkey; end.
program z3_120;
uses crt;
Label 1; var i,j,n,n1,d:integer; s: string;
Begin
ClrScr; Введите число 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; Результат число ',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;
130 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,' дюйм' см readkey; end.
1 2 3 4 5 6
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
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
131 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;
132 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 Введите ',i,' число if a*a<100 then Число ',a,' Квадрат числа ',a*a); end; readkey; end.
program Z3_147;
uses crt; var i,n:integer; t,m:real; begin clrscr; Количество косилок ');read(n); Время работы первой косилки (час
');read(m); t:=m; for i:=2 to n do begin t:=t+1/6; end; Время работы бригады ',t:3:2, 'час readkey; end.
program Z3_148;
uses crt; var n,i,k:integer; r,a,b,x,y:real; begin clrscr;
133 Введите радиус окружности ');read(r); Введите координаты центра, a,b=');read(a,b); Введите количество точек 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; Количество точек ',k); readkey; end.
program Z3_149;
uses crt; var n,i:integer; sr,r:real; begin clrscr; Введите n=');read(n); for i:=1 to n do begin Введите рост ',i,' ученика '); read(r); sr:=sr+r; end; sr:=sr/n; Средний рост учащихся ',sr:2:2); readkey; end.
program Z3_150;
uses crt; var a1,b1,a,b:integer; begin clrscr; Введите a b1 do if a1>b1 then a1:=a1-b1 else b1:=b1-a1; write(a/a1:1:0,'/',b/b1:1:0); readkey; end.
134
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;
135 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.
136
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; Количество денег m=');read(m); Стоимость мороженного k=');read(k); m:=m-k; while m>0 do begin i:=i+1; m:=m-k; end; Количество мороженных ',i,' шт readkey; end.
program Z3_158;
uses crt; var m,s:real; i:integer; begin clrscr;
137 Величина кредита m=');read(m); Критическая сумма долга s=');read(s); while m
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; Сумма нечетных чисел от 1 до 99:',s); readkey; end.
program Z3_161;
uses crt; var v,r:integer; begin clrscr;
138 while r<>250 do begin Рост ');read(r); v:=r-100; Идеальный вес ',v,' кг end; readkey; end.
program Z3_162;
uses crt; var m,r:integer; begin clrscr; Введите длину куска материи в м. M=');read(m); while m>0 do begin Сколько метров режем ');read(r); m:=m-r; end; Столько резать нельзя. Можно ',m+r); readkey; end.
program Z3_163;
uses crt; var v,m,n:real; s:integer; begin clrscr; Понижение на M%, M=');read(m); Повышение на 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.
139
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; Введите A>1, A=');read(a); y:=0;i:=0; while y<=a do begin i:=i+1; y:=y+1/i;
140 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
141 clrscr; repeat
Write('пороль? '); read(n); until n=111; МОЛОДЕЦ 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;
142 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; Бактерий ',bm); readkey; end.
program Z3_172;
uses crt; var n,d:integer; begin clrscr; write('n=');read(n); Делители '); for d:=n downto 2 do if n mod d=0 then
Write(d,' '); readkey; end.
143
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 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);
144 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
145
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.
146
program Z3_182;
uses crt; var x,y,z,n:integer; begin clrscr; введите число не более 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
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;
147 readkey; end.