1 курс / reshyonnye_zadachi
.docx1
program z12;
var a,b:integer;
begin
writeln('ввести a,b');
readln(a,b);
if a<b
then begin
b:=b*3;
writeln (b);
end
else writeln (a,' ',b);
readln;
end.
4
program ab;
var x1,x2,y1,y2:integer;
rez:real;
begin
writeln('vvedi x1,y1');
read(x1,y1);
writeln('vvedi x2,y2');
read(x2,y2);
rez:=sqrt(sqr(x2-x1)+sqr(y2-y1));
writeln(rez:6:2);
end.
6
var a,b,c,x1,x2,d:real;
begin
writeln('введите a,b,c для уравнения: a*x*x+b*x+c=0');
readln(a);
readln(b);
readln(c);
d:=(b*b-4*a*c);
if (d < 0) then writeln('корней не существует')
else begin x1:=(-b+sqrt(d))/(2*a); writeln('x1=',x1:6:2); if (d <> 0) then begin x2:=(-b-sqrt(d))/(2*a);writeln('x2=',x2:6:2);end; end;
end.
7
var x,y:integer;
begin
writeln('vvedite koordinatbl x i y');
readln(x);
readln(y);
if (x >0) then begin if(y>0)then writeln('1 4etvertb') else writeln('4 4etvert');end
else begin if(y>0)then writeln('2 4etvertb') else writeln('3 4etvert');end
end.
8
var x:integer; y:real;
begin
writeln('vvedi x');
readln(x);
if (x<1) then y:=0
else begin
if (x>4) then y:=-x
else y:=17.3*x*x*x-9*x+1.46; end;
writeln('y=',y:6:2);
end.
9
var byk:char;
begin
writeln('vvedi bykvy angl');
readln(byk);
case byk of
'a','i','e','o','y','u':writeln('glasna9');
else writeln('soglasna9');
end;
end.
10
var kol:integer;
begin
writeln('vvedi kol-vo balov');
readln(kol);
case kol of
0:writeln('0 ballov');
1..5:writeln('1 ball');
6..9:writeln('2 balla');
10..15:writeln('3 balla');
16..20:writeln('4 balla');
21:writeln('5 ballov');
else writeln('maksimym 21 ball');
end;
end.
11
var a,b,c:integer;
begin
writeln('vvedi stoton treygolnika');
readln(a);
readln(b);
readln(c);
if ((a=b) and (b=c)) then writeln('ravnostoronii')
else if (a=b) or (b=c) or (a=c) then writeln('ravnobedrenii')
else writeln('proizvol') ;
end.
12
var a1,a2:integer;
begin
writeln('vvedi 2 4isla');
readln(a1);
readln(a2);
if (a2 > a1) then a2:=a2*3;
writeln ( '1 4islo =',a1,' 2 4islo =', a2);
end.
13
var x,y:real;
begin
writeln('vvedi 2 4isla');
readln(x);
readln(y);
if (x > y) then begin x:=(x+y)/2; y:=y*2; end
else begin y:=(y+x)/2; x:=x*2; end;
writeln ( '1 4islo =',x:6:2,' 2 4islo =', y:6:2);
end.
14
var x:integer; y:real;
begin
writeln('vvedi x');
readln(x);
if ((x<4) and (x> -1)) then y:=sqrt(x+1)
else y:=x*x+3*x;
writeln('y=',y:6:2);
end.
15
var an,s:integer;
begin
s:=0;
an:=7;
while (an <32) do begin s:=s+an; an:=an+3; end;
writeln(s);
readln();
end.
16
var kol,ost:integer;
begin
writeln('vvedi god');
readln(kol);
kol:=kol-1960;
ost:= kol mod 12;
case ost of
1: writeln('крысы');
2: writeln('коровы');
3: writeln('тигра');
4: writeln('зайца');
5: writeln('дракона');
6: writeln('змеи');
7: writeln('лошади');
8: writeln('овцы');
9: writeln('обезьяны');
10: writeln('петуха');
11: writeln('собаки');
12: writeln('свиньи');
end;
readln();
end.
17
var den:integer;
begin
writeln('vvedi den');
readln(den);
case den of
1: writeln('3 parbl');
2: writeln('4 parbl');
3: writeln('1 para');
4: writeln('2 parbl');
5: writeln('3 parbl');
6: writeln('0 par');
7: writeln('0 par');
end;
readln();
end.
18
var a,a1,a2:real; i:integer;
begin
a:=1;
a1:=2;
for i:=3 to 9 do begin a2:=a+a1; a:=a1; a1:=a2; end;
writeln(a2);
readln();
end.
19
var x:integer; y:real;
begin
for x:=-10 to 10 do begin y:=0.3*x*x-4.15*x-0.01; writeln(y:6:2); end;
readln();
end.
20
var s,i:integer;
begin
s:=0;
for i:=-5 to 5 do s:=s+abs(i);
writeln(s);
end.
21
var i,ost:integer;
begin
for i:=5 to 20 do begin ost:=100 mod i; writeln(ost); end;
readln();
end.
22
var x,x1,x2,s:integer;
begin
for x:=10 to 99 do begin
x1:=x div 10;
x2:=x mod 10;
if ((x1+x2) > 0 ) and ((x1+x2) <18) then writeln(x);
end;
end.
23
var s:real; a,h:integer;
begin
s:=0;
a:=8;
for h:=2 to 8 do begin s:=(a*h)/2; write(s:6:2,' '); end;
end.
24
var a,s,b:integer;
begin
s:=0;
for a:=10 to 20 do b:=a*a; s:=s+b;
writeln(s);
end.
25
var s:real; i,k,n:integer;
begin
writeln('vvedi ne4etnoe 4islo');
readln(n);
s:=0;
i:=1;
if (n mod 2 <> 0) then begin while n>i do begin s:=s+sqrt(i); i:=i+1; end;
writeln('s=',s:6:2); end
else writeln('vbl oshiblisb pri vvode');
end.
26
var s,s1:real; i,n:integer;
begin
writeln('vvedi 4islo');
readln(n);
s:=0;
s1:=1;
for i:=1 to n do begin s1:=s1/i; s:=s+s1; end;
writeln('symma =',s:6:2);
end.
27
var a,b,c,d:integer;
begin
c:=0;
writeln('vvedi 4islo kratnosi');
readln(d);
for a:=-15 to 15 do
begin
if (a mod d = 0)then c:=c+a;
end;
writeln(c);
end.
28
var s,i:real;
begin
i:=1.2;
s:=0;
while i<=2.8 do begin s:=s+i; i:=i+0.2;end;
writeln('symma=',s:6:2);
end.
29
var s:real; i:integer;
begin
writeln('vvedi 4islo');
readln(i);
s:=i+(i*i/3)+(i*i*i/5)+(i*i*i*i/7);
writeln('symma=',s:6:2)
end.
30
var s,s1,s2:real; i,n,k:integer;
begin
writeln('vvedi gradus');
readln(n);
s:=0;
s1:=0;
s2:=0;
if (i<0) then writeln('вы ошиблись при вводе')
else begin
for i:=1 to n do
begin
for k:=1 to i do begin s1:= cos(k)+s1; s2:=sin(k)+s2; end;
s:=s+s1/s2;
end;
writeln('symma ravna=',s:6:2);
end;
end.
31
var s:real; n,i:integer;
begin
writeln('vvedi 4islo 4etnoe');
readln(n);
s:=1;
i:=2;
if ((n mod 2 = 0) and (n<>0)) then begin
while i <= n do begin
s:=s+1/(i*i); i:=i+2;
end;
writeln('symma=',s:6:2);
end
else writeln('oshibka pro vvode');
end.
34
var k,n:integer; s:real;
function fact(a:integer):integer;
var o,i1:integer;
begin
o:=1;
for i1:=1 to a do o:=o*i1;
fact:=o;
end;
begin
writeln('vvedi k, n');
readln(k);
readln(n);
s:=fact(n)/(fact(k)*fact(n-k));
writeln('symma=',s:8:4);
end.
35
var x1,x2,x3,y1,y2,y3:integer; a,b,c:real;
function storon(x4,x5,y4,y5:integer):real;
begin
storon:=sqrt(sqr(x5-x4)+sqr(y5-y4));
end;
begin
writeln('vvedi koordinat vershin 3 storon');
readln(x1,y1);
readln(x2,y2);
readln(x3,y3);
writeln('storona a=',storon(x1,x2,y1,y2):6:2);
writeln('storona b=',storon(x2,x3,y2,y3):6:2);
writeln('storona c=',storon(x3,x1,y3,y1):6:2);
end.
36
var a,b,k1,k2:integer;
function kolli(a1:integer):integer;
var r:integer;
begin
r:=1;
while a1 div 10 >=1 do
begin
r:=r+1;
a1:=a1 div 10;
end;
kolli:=r;
end;
begin
writeln('vvedi 2 4isla');
readln(a,b);
if (kolli(a) > kolli(b)) then writeln('в первом больше цифр')
else if(kolli(a) = kolli(b)) then writeln('чисал равны')
else writeln('во втором больше цифр');
end.
37
var n,l,m1,ch:integer;
function prost(a1:integer):integer;
var r,i:integer;
begin
r:=0;
for i:=1 to a1 do if (a1 mod i = 0) then r:=r+1;
prost:=r;
end;
begin
writeln('vvedi n');
readln(n);
ch:=0;
for l:=n to 2*n do begin m1:=prost(l); if (m1=2) then if (l>ch) then ch:=l; end;
if (ch=0) then writeln('net prostblh 4isel')
else writeln(ch);
end.
39
var i:integer; b:array[1..8] of integer;
begin
writeln('vvedite elements massiva');
for i:=1 to 8 do read(b[i]);
for i:=1 to 8 do if (i mod 2 = 0) then b[i]:=i*i else b[i]:=i+i;
for i:=1 to 8 do write(b[i],' ');
end.
40
var mas,mas1:array[1..10] of integer; i,sym,i1:integer;
begin
i1:=1;
sym:=0;
writeln('vvedi 10 elementob massiva');
for i:=1 to 10 do readln(mas[i]);
for i:=1 to 10 do begin if (mas[i] mod 2=0) then begin mas1[i1]:=i; sym:=sym+mas[i]; inc(i1,1); end; end;
writeln(sym);
for i:=1 to 10 do write(mas1[i],' ');
end.
41
var mas:array[1..8] of integer; ml,bol,i,mli,boli:integer;
begin
writeln('vvedi massiv 8 4isel');
for i:=1 to 8 do read(mas[i]);
ml:=mas[1]; mli:=1;
bol:=mas[1]; boli:=1;
for i:=1 to 8 do begin if(mas[i]>bol) then begin bol:=mas[i]; boli:=i; end; if (mas[i]<ml) then begin ml:=mas[i]; mli:=i; end; end;
mas[boli]:=ml;
mas[mli]:=bol;
for i:=1 to 8 do write(mas[i]);
end.
42
var mas:array[1..20] of integer; i,k,m,m1:integer; p:real;
begin
for i:=1 to 20 do begin mas[i]:=Random(130)-40; write(mas[i],' '); end;
writeln('vvedi k для начала промежутка');
readln(k);
if (k<11) then begin
if (k mod 2 = 0) then
begin p:=(k+2*k)/2;
m1:=2*k;
for i:=k to (k+k div 2) do begin m:=mas[i]; mas[i]:=mas[m1]; mas[m1]:=m; m1:=m1-1; end;
end
else
begin
m1:=2*k;
for i:=k to (k+(k div 2)) do begin m:=mas[i]; mas[i]:=mas[m1]; mas[m1]:= m; m1:=m1-1; end;
end;
end;
for i:=1 to 20 do write(mas[i],' ');
end.
43
var mas:array[1..7] of integer; i:integer; x:real;
begin
writeln('vvedite element massiva');
for i:=1 to 7 do read(mas[i]);
x:=1;
write('index: ');
for i:=1 to 7 do begin if (mas[i]>0) then x:=x*mas[i];
if (i mod 3 = 0) then write(mas[i],' ');
end;
writeln('');
writeln('произдведение=',x:6:2);
end.
44
var mas:array[1..10] of integer; i,koll,min:integer;
begin
for i:=1 to 10 do mas[i]:=Random(3);
for i:=1 to 10 do write(mas[i],' ');
min:=mas[1];
koll:=0;
for i:=2 to 10 do if (mas[i]< min) then min:=mas[i];
for i:=1 to 10 do if (mas[i] = min) then koll:=koll+1;
writeln('kol-vo =',koll);
end.
45
var mas:array[1..7] of real; i:integer; min:real;
begin
writeln('vvedite vejestv 4isla');
for i:=1 to 7 do read(mas[i]);
for i:=1 to 7 do if (mas[i]>5) then min:=mas[i];
for i:=1 to 7 do if ((mas[i]>5) and (mas[i]<min))then min:=mas[i];
writeln('minimalnoe=',min:6:2);
end.
46
var mas:array[1..8] of integer; i,k:integer; s:real;
begin
writeln('vvedi 4isla');
for i:=1 to 8 do read(mas[i]);
k:=0;
s:=0;
for i:=1 to 8 do begin if (i mod 2<>0)then if (mas[i] mod 2 = 0)then begin k:=k+1; s:=s+mas[i]; end; end;
s:=s/k;
writeln('srednee:=',s:6:2);
end.
48
var mas:array[1..10] of integer; max,u,i,q,j,n:integer;
begin
writeln();
for i:=1 to 10 do mas[i]:=Random(10);
for i:=1 to 10 do write(mas[i],' ');
max:=mas[1];
for i:=1 to 10 do if (mas[i]>max) then begin max:=mas[i]; u:=i; end;
for j:=1 to u do
for i:=1 to u-1 do if (mas[i] > mas[i+1]) then begin q:=mas[i]; mas[i]:=mas[i+1]; mas[i+1]:=q; end;
writeln();
for j:=1 to 10 do
for i:=u+1 to 9 do if (mas[i] < mas[i+1]) then begin q:=mas[i]; mas[i]:=mas[i+1]; mas[i+1]:=q; end;
for i:=1 to 10 do write(mas[i],' ');
end.
49
var s,s1:string; i,k,n:integer;
begin
writeln('vvedi stkoky');
readln(s);
s1:='ма';
n:=0;
k:=pos(s1,s);
while k>0 do begin k:=pos(s1,s); n:=n+1; delete(s,k,2); end;
writeln('vstre4aets9:',n-1);
end.
50
var s:string; n,i,k:integer;
begin
writeln('vvedi tekst');
readln(s);
n:=length(s);
for i:=1 to n do if (s[i] = ' ') then write(i,' ');
end.
51
var s:string; n,i,k:integer;
begin
writeln('vvedi predlojenie');
readln(s);
k:=Length(s);
n:=0;
for i:=1 to k-1 do if(s[i]=s[i+1]) then n:=n+1;
writeln('удвоинных=',n);
end.
52
var s:string; k,i,j,p:integer;
begin
writeln('vvedi predlojenie');
readln(s);
k:=Length(s);
if (s[1] = 'л') then begin for i:=1 to k do begin write(s[i]); if (s[i]=' ') then break; end; end;
for i:=1 to k do begin if ((s[i]='л') and (s[i-1] = ' ')) then begin p:=i+1; for j:=i to k do begin write(s[j]); if (s[j]=' ') then break; end; end; end;
end.
53
program z53;
var a:string ;i:integer;k:integer;
begin
writeln('введи текст') ;
readln(a);
K:=0;
for i:=1 to length(a) do
if (a[i]=' ') and (a[i-1]='я') then k:=k+1 ;
writeln(k);
end.
54
var s1,s2,s3,s4:string; k,i,j,p:integer;
begin
writeln('vvedi FIO');
readln(s1,s2,s3);
s4:=s1[1]+'.'+s2[1]+'.'+s3;
writeln(s4);
end.
55
var s1,s2,s3:string; k,i,j,p:integer;
begin
s1:='Мартышка';
s2:='Удав';
s3:=s1+' и '+s2+' друзья';
writeln(s3);
end.
56
var s1,s2,s3:string; k,i,j,p:integer;
begin
s1:='Новый год';
delete(s1,1,5);
insert('С новым',s1,1);
insert('ом',s1,12);
writeln(s1);
end.
57
program z57;
var a:string ;i:integer;
begin
a:='калитка';
for i:=1 to length(a) do
if (a[i]='к') and (a[i+1]='а') then begin a[i]:='р' ;a[i+1]:='о' ;end;
writeln(a);
end.
58
program z58;
var a:string ;k,i:integer;
begin
a:='несомненно';
k:=0 ;
for i:=1 to length(a) do
if (a[i]='н') and (a[i+1]='е') then begin k:=k+1 ;a[i]:='к' ;a[i+1]:='о' ;end;
writeln(k);
writeln(a);
end.
60
program z60;
var e,a:string ;k,i:integer ;
begin
a:='дом';
k:=0 ;
for i:=1 to length(a) do begin e:=copy(a,i+k,1); k:=k+1 ;
writeln(e);
insert(e,a,i+k);end;
writeln(a);
end.
61
program z61;
var e,a:string ;k,i:integer ;
begin
a:='окно';
k:=0 ;
for i:=1 to length(a) do begin e:=copy(a,i+k,1); k:=k+1 ;
writeln(e);
insert(' ',a,i+k);
end;
writeln(a);
end.
62
var s1:string; k,i,j,p:integer;
begin
s1:='Ах! Весна. Ура?';
k:=Length(s1);
j:=0;
for i:=1 to k do if ((s1[i]='.') or (s1[i]='!') or (s1[i]='?'))then j:=j+1;
writeln(j);
end.
65
program Z65;
var x, z, a, b, c, y, m, n, d, l, s: integer;
begin
writeln('введи z');
readln(z);
x:=z div 1000;
a:=x div 100;
b:=(x mod 100)div 10;
c:= x mod 10;
m:=a+b+c;
y:=z mod 1000;
n:=y div 100;
d:=(y mod 100)div 10;
l:= y mod 10;
s:=n+d+l;
if (m=s)
then writeln('счастливое')
else writeln('несчастливое');
readln;
end.