ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 11.01.2024
Просмотров: 55
Скачиваний: 1
ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
program z1_56;
uses crt; var ves,m:real; begin clrscr; write('ves=');read(ves); m:=ves*0.65; Масса молекул кислорода ',m:2:1,' кг
25 readkey; end.
program z1_57;
uses crt; var n,a,b,c:integer; begin clrscr; Количество учеников ');read(n); Количество пятерок ');read(a); Количество четверок ');read(b); Количество троек ');read(c); Троек ',c/n*100:2:1,' процентов Четверок ',b/n*100:2:1,' процентов Пятерок ',a/n*100:2:1,' процентов readkey; end.
program z1_58;
uses crt; var p1,p2,p3,p4:integer; f,s:real; begin clrscr; Введите площадь в га Количество учеников в 1 классе ');read(p1); Количество учеников в 2 классе ');read(p2); Количество учеников в 3 классе ');read(p3); Количество учеников в 4 классе ');read(p4); s:=f/(p1+p2+p3+p4); Для 1 класса ',s*p1:2:1,' га Для 2 класса ',s*p2:2:1,' га Для 3 класса ',s*p3:2:1,' га Для 4 класса ',s*p4:2:1,' га readkey; end.
program z1_61;
uses crt; var x,s:real; begin clrscr; write('x=');read(x); s:=x*(x*(x*(2*x-3)+4)-5)+6;
26 writeln('s=',s:3:3); readkey; end.
program z1_62;
uses crt; var x,s1,s2:real; begin clrscr; write('x=');read(x); s1:=1-(2+(3-4*x)*x)*x; s2:=1+(2+(3+4*x)*x)*x; writeln('s1=',s1:3:3); writeln('s2=',s2:3:3); readkey; end.
program z1_63;
uses crt; var v1,v2,v3,vsred:real; begin clrscr; Скорость на 1 участке v1=');read(v1); Скорость на 2 участке v2=');read(v2); Скорость на 3 участке v3=');read(v3); vsred:=(v1+v2+v3)/3; writeln('vsred=',vsred:3:3); readkey; end.
program z1_64;
uses crt; var summa,st:real; begin clrscr; Введите сумму денег в руб Введите стоимость ед.товара в руб Можно купить ',int(summa/st):2:0,' ед. товара Сдача составит ',summa- st*int(summa/st):2:2,' руб readkey;
27 end.
program z1_65;
uses crt; var n,x,y,z,s:integer; begin clrscr; Введите трехзначное число n=');read(n); Сумма цифр числа ',n,' равна x:=n div 100; n:=n mod 100; y:=n div 10; z:=n mod 10; s:=x+y+z; write(s); readkey; end.
program z1_66;
uses crt; var v:integer; begin clrscr; write('v=');read(v); Средний объем - ',v/5:2:3); readkey; end.
program z1_67;
uses crt; var p,f:integer; begin clrscr; Показатель Плановый p=');read(p); Выполнено фактически f=');read(f); Процент выполнения ',f/p*100:2:2, '%'); readkey; end.
program z1_68;
uses crt; var s,n:integer; begin
28 clrscr; Количество часов s=');read(s); Количество рабочих n=');read(n); Средняя загруженность ',s/n:2:2, 'час readkey; end.
program z1_69;
uses crt; var x1,x2,y1,y2:integer; begin clrscr; Координаты конца 1 вектора x1,y1=');read(x1,y1); Координаты конца 2 вектора x2,y2=');read(x2,y2); Длинна 1 вектора ',sqrt(sqr(x1)+sqr(y1)):3:2); Длинна 2 вектора ',sqrt(sqr(x2)+sqr(y2)):3:2); readkey; end.
program z1_70;
uses crt; var a:integer; begin clrscr; write('a=');read(a); writeln('v=',a*a*a); writeln('s=',6*a*a); readkey; end.
program z1_71;
uses crt; var d,n,l,kvm:real; begin clrscr; Время в час. n=');read(n); Ширина ткани в м. l=');read(l); kvm:=n*60/5; d:=kvm/l;
29 За ',n:2:2,' час. выпущено ',kvm:2:2,' кв.м. ткани При ширине ',l:2:2,' м. выпущено ',d:2:2,' м. ткани readkey; end.
program z1_72;
uses crt; var v,r,h:real; n:integer; begin clrscr; Введите радиус в м. R=');read(r); Введите высоту в м. H=');read(h); Введите количесиво бочек. N= ');read(n); v:=pi*r*r*h*n; Объем ',n,' бочек ',v:2:2,' куб.м.'); readkey; end.
program z1_73;
uses crt; var a,b,h,ug,v:real; begin clrscr; Введите длины сторон основания. a,b=');read(a,b); Введите высоту h=');read(h); Введите угол в градусах = ');read(ug); v:=a*b*sin(ug*pi/180)*h; Объем v= ',v:2:2); readkey; end.
program z1_74;
uses crt; var p,smz:real; begin clrscr; Введите величину прибыли. p=');read(p); smz:=(p-p*0.7-(p-p*0.7)*0.3)*25.4/8;
Writeln('Среднемесячна зарплата рабочего при 25.4 днях работы за месяц
30 составит ',smz:2:2,' у. ед readkey; end.
program z1_80;
uses crt; var k,s:real; begin clrscr; s:=(5*5*5*10)/(4*4*4); writeln(s:2:1, ' инкубаторских '); яиц соответствуют 10 домашним writeln('Хозяка экономит в ',s/10:2:2,' раза readkey; end.
program z1_81;
uses crt; var sd,sg,sm,p:real; begin clrscr; Введите стоимость носков детских ');read(sd); женских ');read(sg); мужских ');read(sm); p:=4*(3*sd+sg+sm); Прибыль в месяц ',p:2:2,' у.ед.'); readkey; end.
program z1_82;
uses crt; const p=80; var op:real; begin clrscr; op:=p+p*0.3+(p+p*0.3)*0.4; Оплата в месяц ',op:2:2,' у.ед.'); readkey; end.
program z1_83;
uses crt; var s1,t1,s2,t2:real;
31 begin clrscr;
Write('s1=');Read(s1);
Write('t1=');Read(t1);
Write('t2=');Read(t2); s2:=s1/t1*t2; writeln('s2= ',s2:2:2); readkey; end.
32 Раздел I I.
Program z2_1;
Uses crt; var a,b,c: Real;
Begin
Clrscr;
Write (Введите три числа a,b,c=');
Read(a,b,c);
If a>0 then a:=a*a else a:=a*a*a*a;
If b>0 then b:=b*b else b:=b*b*b*b;
If c>0 then c:=c*c else c:=c*c*c*c;
Writeln (Полученные числа ');
Writeln (a:3:6);
Writeln (b:3:6);
Writeln (c:3:6);
Readkey; end.
Program z2_2;
Uses crt; var x1,x2,y1,y2,d1,d2: Real;
Begin
Clrscr;
Write (Введите координаты точек A(x1,y1) и
B(x2,y2):');
Read(x1,y1,x2,y2); d1:=sqrt(sqr(x1)+sqr(y1)); d2:=sqrt(sqr(x2)+sqr(y2)); if d1d2 then Ближе точка B'); if d1=d2 then Точки на равном расстоянии
Readkey; end.
Program z2_3;
Uses crt;
Label 1; var ug1,ug2,ug3: Real;
Begin
33
Clrscr;
Write (Введите углы в градусах ug1,ug2=');
Read(ug1,ug2); if (ug1+ug2)>=180 then begin
Треугольник невозможен goto 1; end; Треугольник возможен он '); ug3:=180-ug1-ug2; if (ug1=90) or (ug2=90) or (ug3=90) then
прямоугольный) else
непрямоугольный if x Writeln('x=',x:3:6);
Writeln('y=',y:3:6);
Readkey; end.
Program z2_5;
Uses crt;
Label 1; var x,y: Real;
Begin
Clrscr;
Write ('x,y=');
Read(x,y);
Точка расположена '); if x=0 then Begin на осина оси OX'); goto 1;end; if (x>0) and (y>0) then Begin
34
впервой четверти goto 1; end; if (x<0) and (y>0) then begin
во второй четверти goto 1; end; if (x<0) and (y<0) then Begin
в третьей четверти goto 1; end else в четвертой четверти
1: Readkey; end.
Program z2_6;
Uses crt; var m,n,max: integer;
Begin
Clrscr;
Write ('m,n=');
Read(m,n); if m>n then max:=m; if mn then begin m:=max; n:=max; end else begin m:=0; n:=0;end;
Write('m=',m,' ','n=',n);
Readkey; end.
Program z2_7;
Uses crt; var n,x,y,z,s: integer;
Begin
Clrscr;
Write ('n=');
Read(n);
Сумма цифр '); x:=n div 100; n:=n mod 100; y:=n div 10; z:=n mod 10;
35 s:=x+y+z; if s/2=int(s/2) then четная) else нечетная Квадрат числа ',n,' равен кубу суммы его цифр kv:=n*n; x:=n div 100; n:=n mod 100; y:=n div 10; z:=n mod 10; s:=x+y+z; s:=s*s*s; if s=kv then да) else нет
Readkey; end. Для проверки это число 448}
Program z2_9;
Uses crt; var n: integer;
Begin
Clrscr;
Write ('n=');
Read(n);
Число ',n,' двухзначное четное if (n>=10) and (n<=99) and (n/2=int(n/2)) then да) else нет
Readkey; end.
Program z2_10;
Uses crt;
36 var a,b,c: real;
Begin
Clrscr;
Write ('a,b,c=');
Read(a,b,c); if (a+b<=c) or (a+c<=b) or (b+c<=a) then
треугольника с такими сторонами нет) else if (a=b) and (b=c) then треугольник равносторонний) else треугольник не равносторонний
Readkey; end.
Program z2_11;
Uses crt; var a,b,c: real;
Begin
Clrscr;
Write ('a,b,c=');
Read(a,b,c); if (a+b<=c) or (a+c<=b) or (b+c<=a) then
треугольника не существует) else if (a=b) or (b=c) or (a=c) then
треугольник равнобедренный) else треугольник не равнобедренный
Readkey; end.
Program z2_12;
Uses crt; var a,b,c: real;
Begin
Clrscr;
Write ('a,b,c=');
Read(a,b,c);
Write (Взаимно противоположные числа есть if (a=-b) or (a=-c) or (b=-c) then
Write (Да) else Write (Нет
Readkey; end.
Program z2_13;
37
Uses crt; var a,b,c: real; k: integer;
Begin
Clrscr;
Write ('a,b,c=');
Read(a,b,c);
Write (Отрицательных чисел '); if a<0 then k:=k+1; if b<0 then k:=k+1; if c<0 then k:=k+1; if k=0 then Write (Нет) else Write (k,' шт
Readkey; end.
Program z2_14;
Uses crt; var a,b,c: real; k: integer;
Begin
Clrscr;
Write ('a,b,c=');
Read(a,b,c);
Write ('Пложительных чисел '); if a>0 then k:=k+1; if b>0 then k:=k+1; if c>0 then k:=k+1; if k=0 then Write (Нет) else Write (k,' шт
Readkey; end.
Program z2_15;
Uses crt; var a,b,c: real; k: integer;
Begin
Clrscr;
Write ('a,b,c=');
Read(a,b,c);
Write (Целых чисел '); if a=int(a) then k:=k+1; if b=int(b) then k:=k+1;
38 if c=int(c) then k:=k+1; if k=0 then Write (Нет) else Write (k,' шт
Readkey; end.
Program z2_16;
Uses crt; var a,b,c,k,p: integer;
Begin
Clrscr;
Write ('a,b,c,k=');
Read(a,b,c,k);
Write (k,'-'); if a/k=int(a/k) then Begin Write(' делитель ',a);p:=1;end; if b/k=int(b/k) then Begin Write(' делитель ',b);p:=1;end; if c/k=int(c/k) then Begin Write(' делитель ',c);p:=1;end;
If p=0 then write (не является делителем предложенных чисел
Readkey; end.
Program z2_17;
Uses crt; var a,b,c,m: integer;
Begin
Clrscr;
Write (количество минут разговора m=');read (m);
Write (лимит A мин. cтоимость B руб (A,B)=');read
(a,b);
стоимость сверх лимита Сруб. за мин read(c); if m<=a then m:=m*b else m:=a*b+(m-a)*c; Оплата
Readkey; end.
39
Program z2_18;
Uses crt; var a1,b1,c1,a2,b2,c2,s1,s2,p1,p2: real;
Begin
Clrscr;
Write (Введите стороны первого треугольника a1,b1,c1=');read (a1,b1,c1);
Write (Ведите стороны второго треугольника a2,b2,c2=');read (a2,b2,c2); p1:=(a1+b1+c1)/2; p2:=(a2+b2+c2)/2; s1:=sqrt(p1*(p1-a1)*(p1-b1)*(p1-c1)); s2:=sqrt(p2*(p2-a2)*(p2-b2)*(p2-c2)); if s1=s2 then треугольники равновеликие) else треугольники неравновеликие');
Readkey; end.
Program z2_19;
Uses crt;
Label 1; var s:string;
Begin
Clrscr;
Write (Кто вы мальчик или девочка (Д" или "М read (s); if (Д) or (д) or (s='L') or (s='l') then begin Мне нравятся девочки goto 1; end; if Мм Мне нравятся мальчики goto 1; end; Ответ непонятен ('Cкорость грузового автомобиля V1 км/ч -'); read (V1);
Время выезда легкового автомобиля через t час read(t);
Write ('Cкорость легкового автомобиля V2 км/ч -'); read(v2);
Write (Время в пути легкового автомобиля t1 час read (t1);
S1:=V1*(t+t1); s2:=V2*t1;
If s1<=s2 then Легковой автомобиль догонит грузовой) else Легковой автомобиль не догонит грузовой
Readkey; end.
Program z2_21;
Uses crt; var x,y,n:integer;
Begin
Clrscr;
Write ('x,y='); read (x,y);
If x Write('x=',x,' ','y=',y);
Readkey; end.
Program z2_22;
Uses crt;
Label 1,2; var x,y:integer;
Begin
Clrscr;
Write (Введите номер месяца
Write (Введите число месяца case x of
1,3,5,7,8,10,12: if (y<1) or (y>31) then goto 1;
41 2: if (y<1) or (y>29) then goto 1;
4,6,9,11:if (y<1) or (y>30) then goto 1; else
Write (Неправильно введен номер месяца goto 2; end;
Дата введена правильно goto 2;
1: Неправильно введено число
2: Readkey; end.
Program z2_23;
Uses crt; var n:integer;
Begin
Clrscr;
Write (Введите кличество лепестков ромашки
Мы считаем- любит- нелюбит": ответ
If n/2=int(n/2) then Не любит) else Любит
Readkey; end.
Program z2_24;
Uses crt; var x,y,z,n :real;
Begin
Clrscr;
Write ('x,y,z=');read(x,y,z); if x>y then begin n:=x; x:=y; y:=x; end; if x>z then begin n:=x; x:=z; z:=x; end; if y>z then begin n:=y; y:=z; z:=y; end; n:=x+z; write('n=',n:3:6);
Readkey; end.
Program z2_25;
Uses crt; var a,b,c,uc,n :real;
Begin
Clrscr;
42
Write ('a,b,c=');read(a,b,c); if a>b then begin n:=a; a:=b; b:=n; end; if a>c then begin n:=a; a:=c; c:=n; end; if b>c then begin n:=b; b:=c; c:=n; end; if c*c=a*a+b*b then
Треугольник прямоугольный) else begin
Треугольник непрямоугольный' Угол С end;
Readkey; end.
Program z2_26;
Uses crt;
Label 1; var a,b,c,d,max, min1,min2 :real;
Begin
Clrscr;
Write ('a,b,c,d=');read(a,b,c,d); if a>b then min1:=b else min1:=a; if c>d then min2:=d else min2:=c; if min1>min2 then max:=min1 else max:=min2;
Write('max=',max:5:6);
1: Readkey; end.
Program z2_27;
Uses crt;
Label 1; var a,b,c,d,max :real;
Begin
Clrscr;
Write ('a,b,c,d=');read(a,b,c,d); if a=d then Begin Write('a=d');goto 1; end; if b=d then Begin Write('b=d');goto 1; end; if c=d then Begin Write('c=d');goto 1; end; a:=d-a; b:=b-d; c:=c-d; if a>b then max:=a else max:=b; if max Write('max=',max:5:6);
43 1: Readkey; end.
Program z2_28;
Uses crt; var x1,x2,x3,x4,y1,y2,y3,y4: Real; d1,d2,d3,d4: Real;
Begin
Clrscr;
Write ('x1,y1,x2,y2=');
Read(x1,y1,x2,y2);
Write ('x3,y3,x4,y4=');
Read(x3,y3,x4,y4); d1:=sqrt(sqr(x2-x1)+sqr(y2-y1)); d2:=sqrt(sqr(x3-x4)+sqr(y3-y4)); d3:=sqrt(sqr(x2-x3)+sqr(y2-y3)); d4:=sqrt(sqr(x1-x4)+sqr(y1-y4)); if (d1=d2) and (d3=d4) then
Да это вершины) else
Нет это не вершины
Write(' параллелограмма
Readkey;
Program z2_29;
Uses crt;
Label 1; var x1,x2,x3,y1,y2,y3: Real; ab,ac,bc,ug: Real;
Begin
Clrscr;
Write ('x1,y1,x2,y2,x3,y3=');
Read(x1,y1,x2,y2,x3,y3); ab:=sqrt(sqr(x2-x1)+sqr(y2-y1)); ac:=sqrt(sqr(x1-x3)+sqr(y1-y3)); bc:=sqrt(sqr(x2-x3)+sqr(y2-y3)); if (ab+ac<=bc) or (ab+bc<=ac) or (ac+bc<=ab) then
точки расположены на одной прямой) else
Begin
Write('
44 ug:=(sqr(ab)+sqr(bc)-sqr(ac))/(2*ab*bc);
If ug<=0 then begin ug:=90; goto 1; end; ug:=arctan(sqrt(1+1/ug))*180/pi;
1: Write(ug:3:3,' град
End;
Readkey; end
Program z2_30;
Uses crt; var a,c,b: Real;
Begin
Clrscr;
Write ('a,b,c=');
Read(a,b,c); if (aWriteln('a=',a:5:6);Writeln('b=',b:5:6);
Writeln('c=',c:5:6);
Readkey; end.
Program z2_31;
Uses crt; var x1,y1,x2,y2,x3,y3,ac,ab: Real;
Begin
Clrscr;
Write ('x1,y1,x2,y2,x3,y3=');
Read(x1,y1,x2,y2,x3,y3); ab:=sqrt(sqr(x1-x2)+sqr(y1-y2)); ac:=sqrt(sqr(x1-x3)+sqr(y1-y3)); if abac then Write (Точка C ближе) else Write (Точки равноудалены
Readkey; end.
Program z2_32;
Uses crt; var a,c,b,s: Real;
Begin
45
Clrscr;
Write ('a,b,c=');
Read(a,b,c); if (a+b<=c) or (a+c<=b) or (c+b<=a) then
Write ('’аҐгЈ®«мЁЄ Ґ ў®§¬®¦Ґ.') else
Begin
Writeln ('’аҐгЈ®«мЁЄ ў®§¬®¦Ґ.'); s:=(a+b+c)/2; s:=sqrt(s*(s-a)*(s-b)*(s-c));
Writeln ('…Ј® Ї«®й м =',s:3:6); end;
Readkey; end.
Program z2_33;
Uses crt;
Label 1; var a,b,x: Real;
Begin
Clrscr;
Write ('a,b=');
Read(a,b); if (a=0) and (b=0) then begin
Write ('X - любое goto 1; end;
Writeln ('X1=0'); if (a=0) and (b<>0) then goto 1; x:=-b/a; if x<=0 then goto 1;
Writeln('X2=',x:3:6);
Writeln('X3=-',x:3:6);
1: Readkey; end.
Program z2_34;
Uses crt; var a,r: Real;
Begin
Clrscr;
Write ('a,r=');
Read(a,r);
46 if a<=r*sqrt(3) then
Write (Поместится) else
Write (Не поместится
Readkey; end.
Program z2_35;
Uses crt; var x,y,z,max,min: Real;
Begin
Clrscr;
Write ('x,y,z=');
Read(x,y,z); if x z then min:=z; if max< z then max:=z; if (min=0) or (sin(2*x)+max/min=0) then
Write ('‡ зла п ўлзЁб«Ёвм Ґў®§¬®¦®.') else
Write ('u=',(sqr(max)- exp(x*ln(2))*min)/(sin(2*x)+max/min):3:6);
Readkey; end.
Program z2_36;
Uses crt;
Label 1; var m,a,b,c,x: real;
Begin
Clrscr;
Write ('x=');
Read(x); if x<=0 then if sin(x) Write(sin(x):3:6,' ',cos(x):3:6); goto 1; end else
47 begin
Write(cos(x):3:6,' ',sin(x):3:6); goto 1; end; a:=sin(x); b:=cos(x); c:=ln(x); if a>b then begin m:=a; a:=b; b:=m end; if a>c then begin m:=a; a:=c; c:=m end; if b>c then begin m:=b; b:=c; c:=m end; write(a:3:6,' ',b:3:6,' ',c:3:6);
1: Readkey; end.
Program z2_37;
Uses crt;
Label 1; var m,a,b,x,y,z: real;
Begin
Clrscr;
Write (Размеры отверстия a,b=');
Read(a,b);
Write (Размеры кирпича x,y,z=');
Read(x,y,z); if a>b then begin m:=a; a:=b; b:=m end; if x>y then begin m:=x; x:=y; y:=m end; if x>z then begin m:=x; x:=z; z:=m end; if y>z then begin m:=y; y:=z; z:=m end; if (x>=a) or (y>=b) then Кирпич не пройдет через отверстие) else Кирпич пройдет через отверстие
1: Readkey; end.
Program z2_38;
Uses crt;
Label 1; var a,a1: real; s:char;
Begin
Clrscr;
Перевести в радианы или градусы (р/г):'); if (s='h') or (s='H') or (р) or (Р) then begin
Введите количество градусов
48 read(a); a1:=a*pi/180;
Write(a:3:6,' градусов' радиан end else begin
Введите количество радиан read(a); a1:=a*180/pi;
Write(a:3:6,' радиан' градусов end;
Readkey; end.
0>0>0>
program z2_38;
uses crt; var ug: Real; s: char;
Begin
ClrScr; Какой перевод осуществить в градусы или радианы в радианы, g- в грдусы');
Read(s); Введите величину угла
Read(ug);
Write(ug:3:3);
If (s='r') or (s='R') or (к) or (К) then
Write(' град' рад) else
Write(' рад' град
Readkey; end.
program z2_40;
uses crt;
Label 1; var n,m,d,n1,n2:integer;
Begin
ClrScr; Введите количество этажей в доме
Read(n); Введите номер квартиры
49
Read(m); d:=m div 3; n1:=d; n2:=0;
If (d mod 2) =0 then
Begin n1:=d+1; n2:=d-1; end;
If (n1<=n) and (n2>=1) then
Begin Лифт остановится на ',n1,' или на ',n2,' этаже goto 1;
End;
If n1>n then Лифт остановится на ',n2, ' этаже
If n2<1 then Лифт остановится на ',n1,' этаже
1: Readkey; end.
program z2_41;
uses crt; var a,b,c,s1,s2,s3:Real;
Begin
ClrScr; Введите три числа a,b,c=');
Read(a,b,c); s1:=a+b; s2:=a+c; s3:=b+c; if (s1>0) or (s2>0) or (s3>0) then
да)
Else
нет
Readkey; end.
program z2_42;
uses crt;
Label 1; var a1,a2,a3,a4:Real; n: integer;
Begin
50
ClrScr; Введите числа a1,a2,a3,a4=');
Read(a1,a2,a3,a4);
If (a1<>a2) and (a1<>a3) and (a1<>a4) Then begin n:=1; goto 1; end;
If (a1<>a2) and (a2<>a3) and (a2<>a4) Then begin n:=2; goto 1; end;
If (a1<>a3) and (a2<>a3) and (a3<>a4) Then begin n:=3; goto 1; end; n:=4;
1: Это число под номером ',n);
Readkey; end.
program z2_43;
uses crt;
Label 1; var a,b:longint;
Begin
ClrScr; Введите числа a,b=');
Read(a,b);
If a+b>32767 Then
Переполнение)
Else
Writeln (Сумма ',a,' + ',b,' = ',a+b);
Readkey; end.
program z2_44;
uses crt;
Label 1; var a,b,c,x1,x2,d:real;
Begin
ClrScr; Введите числа a>0: a,b,c=');
Read(a,b,c); d:=b*b-4*a*c;
If (d<0) or (d=0) and (-b/(2*a)<0) then begin Корней нет goto 1; end;
If d=0 then begin x1:=sqrt(-b/(2*a)); Два корня оба различны
51 Первый корень ',x1:5:6); Второй корень - ',x1:5:6); goto 1; end; x1:=(-b+sqrt(d))/(2*a); x2:=(-b-sqrt(d))/(2*a); if x1<0 then begin x1:=sqrt(x2); Два корня оба различны Первый корень ',x1:5:6); Второй корень - ',x1:5:6); goto 1; end; if x2<0 then begin x1:=sqrt(x1); Два корня оба различны Первый корень ',x1:5:6); Второй корень - ',x1:5:6); goto 1; end; Четыре корня все различны Первый корень ',sqrt(x1):5:6); Второй корень - ',sqrt(x1):5:6); Третий корень ',sqrt(x2):5:6); Четвертый корень - ',sqrt(x2):5:6);
1:Readkey; end.
program Z2_45;
uses crt; label 1; var x,y,z,k:real; begin clrscr;
Write('x,y,z=');read(x,y,z); if (x*y*z)>=1 then begin if x>y then y:=(x+z)/2 else x:=(y+z)/2; goto 1; end; if x>y then begin k:=x;x:=y;y:=k;end;
52 if x>z then begin k:=x;x:=z;z:=k;end; if y>z then begin k:=y;y:=z;z:=k;end; x:=(z+y)/2;
1: Write(x:2:2,' ',y:2:2,' ',z:2:2); readkey; end.
program Z2_46;
uses crt; label a; var ug,a1,a2,b1,b2,c1,c2,k1,k2:real; begin clrscr;
Write('a1,b1,c1=');read(a1,b1,c1);
Write('a2,b2,c2=');read(a2,b2,c2); k1:=-a1/b1; k2:=-a2/b2; if k1*k2=-1 then begin Прямые перпендикулярны goto a; end; ug:=abs((k2-k1)/(1+k1*k2)); ug:=arctan(ug)*180/pi; write('ug=',ug:2:2); a: readkey; end.
program Z2_47;
uses crt; label 1; var x,y,z,k:real; begin clrscr;
Write('x,y,z=');read(x,y,z); if (x*y*z)>=1 then begin if x>y then y:=(x+z)/2 else x:=(y+z)/2; goto 1; end; if x>y then begin k:=x;x:=y;y:=k;end; if x>z then begin k:=x;x:=z;z:=k;end; if y>z then begin k:=y;y:=z;z:=k;end;
53 x:=(z+y)/2;
1: Write(x:2:2,' ',y:2:2,' ',z:2:2); readkey; end.
program Z2_48;
uses crt; label 1; var x,y,a1,b1,c1,a2,b2,c2:real; begin clrscr;
Write('a1,b1,c1=');read(a1,b1,c1);
Write('a2,b2,c2=');read(a2,b2,c2); if (b1=0) or (b2=0) or (a2-b2*a1/b2=0) then begin Корней нет 1; end; x:=(c2-b2*c1/b1)/(a2-b2*a1/b2); y:=(c1-a1*x)/b1;
Writeln('x=',x:2:2); writeln('y=',y:2:2);
1:readkey; end.
program z2_49;
uses crt;
Label 1; var x1,x2,y1,y2,a,b,b1,c,d,k,r:Real; k1,k2:integer;
Begin
ClrScr; Введите k,b=');
Read(k,b); Введите r=');
Read(r); a:=1+k*k; b1:=2*k*b; c:=b*b-r*r; d:=b1*b1-4*a*c; if d<0 then begin Точек пересечения нет goto 1; end; if d=0 then
54 begin Прямая касается окружности в точке '); с координатами
Write('x=',-b1/(2*a):5:6,'y=',-(b1*k)/(2*a)+b:5:6); goto 1; end; x1:=(-b1+sqrt(d))/(2*a); x2:=(-b1-sqrt(d))/(2*a); y1:=k*x1+b; y2:=k*x2+b;
If x1*y1>0 then if x1>0 then k1:=1 else k1:=4 else if x1>0 then k1:=4 else k1:=2;
If x2*y2>0 then if x2>0 then k2:=1 else k2:=4 else if x2>0 then k2:=4 else k2:=2; точек пересечения две
Writeln(x1:5:6,';',y1:5:6,' координатная четверть ',k1);
Writeln(x2:5:6,';',y2:5:6,' координатная четверть ',k2);
1: Readkey; end.
program z2_52;
uses crt; var n,kvn:integer;
Begin
ClrScr; Введите последнюю цифру числа n=');
Read(n); case n of
0:kvn:=0;
1,9:kvn:=1;
2,8:kvn:=4;
3,7:kvn:=9;
4,6:kvn:=6;
5:kvn:=5; end; Последняя цифра квадрата числа- ',kvn);
Readkey; end.
program z2_53;
uses crt; var f,kd,god,mes:integer;
55
Begin
ClrScr; Введите год god=');
Read(god); Введите номер месяца mes=');
Read(mes); f:=28; if god mod 4 =0 then f:=29; case mes of
1,3,5,7,8,10,12:kd:=31;
2:kd:=f;
4,6,9,11:kd:=30; end; Количество дней в ',mes,' месяце ',kd,' дней
Readkey; end.
program z2_54;
uses crt;
Label 1; var f:integer; d:string;
Begin
ClrScr;
1: Введите цифру от 0 до 9 -');
Read(f); if (f>9) or (f<0) then goto 1; case f of
0:d:='zero';
1:d:='one';
2:d:='two';
3:d:='three';
4:d:='four';
5:d:='five';
6:d:='six';
7:d:='seven';
8:d:='eight';
9:d:='nine'; end;
Write(f,' - ',d);
Readkey; end.
56
program z2_55;
uses crt;
Label 1; var f:integer; d:string;
Begin
ClrScr;
1: Введите вашу оцеку 1 до 5 -');
Read(f); if (f>5) or (f<1) then goto 1; case f of плохо неудовлетворительно удовлетворительно хорошо отлично end;
Write(f,' - ',d);
Readkey; end.
program z2_56;
uses crt;
Label 1; var n:integer; d,r,c,s:real;
Begin
ClrScr;
1: Введите номер элемента от 1 до 3: n=');
Read(n); if (n>3) or (n<1) then goto 1; case n of
1:Begin введите радиус r=');read(r);s:=pi*r*r; end;
2:Begin введите диаметр d=');read(d);s:=pi*d*d/4; end;
3:Begin введите длину окружности с end;
Write('пложадь круга s=',s:5:3);
Readkey;
program z2_57;
uses crt;
57
Label 1,2,3,4,5,6; var n:integer; a,b,h,s:real;
Begin
ClrScr;
1: Введите номер элемента от 1 до 4: n=');
Read(n); if (n>4) or (n<1) then goto 1; case n of
1:Begin введите катет a=');read(a);goto 2; end;
2:Begin введите гипотенузу b=');read(b);goto
3; end;
3:Begin введите высоту h=');read(h);goto
4;end;
4:Begin введите площадь s=');read(s);goto
5;end; end;
2:s:=a*a/2; b:=sqrt(2)*a; h:=b/2;
Write('s=',s:5:3,' b=',b:5:3,' h=',h:5:3);goto 6;
3:a:=b/sqrt(2);h:=b/2;s:=a*a/2;
Write('s=',s:5:3,' a=',a:5:3,' h=',h:5:3);goto 6;
4:b:=2*h;a:=b/sqrt(2);s:=a*a/2;
Write('s=',s:5:3,' b=',b:5:3,' a=',a:5:3);goto 6;
5:a:=sqrt(2*s);b:=sqrt(2)*a;h:=b/2;
Write('h=',h:5:3,' b=',b:5:3,' a=',a:5:3);
6: Readkey; end.
program z2_58;
uses crt;
Label 1; var m:integer; d:string;
Begin
ClrScr;
1: Введите номер месяца -');
Read(m); if (m>12) or (m<1) then goto 1; case m of февраль март
58 апрель май июнь июль август сентябрь октябрь ноябрь декабрь январь end;
Write(m,' - ',d);
Readkey; end.
program z2_59;
uses crt; label 1; const zima: декабрь, январь, февраль vesna: март, апрель, май leto: июнь, июль, август osen: сентябрь, октябрь, ноябрь var n:integer;
Begin
ClrScr;
1: Введите номер времени года от 1 до 4: n=');
Read(n); if (n>4) or (n<1) then goto 1; case n of
1: зима
2: весна
3: лето
4: осень end;
Readkey; end.
program z2_60;
uses crt;
Label 1,2; var k,ost:integer;
Begin
ClrScr;
59 1: Введите число от 1 до 99: k=');
Read(k); if (k>99) or (k<1) then goto 1; ost:=k mod 10; Мне ',k);
If (k>=5) And (k<=20) then begin Write(' лет goto 2; end; case ost of
1: Write(' год
2..4: Write(' года else
Write(' лет end;
2:Readkey; end.
program z2_61;
uses crt;
Label 1; var k:integer; l: real;
Begin
ClrScr;
1: Введите номер единицы измерения от 1 до 5: k=');
Read(k); if (k<1) or (k>5) then goto 1; Введите длину отрезка l=');
Read(l); case k of
1: l:=l/10;
2: l:=l*1000;
4: l:=l/1000;
5: l:=l/100; end; величина отрезкам Введите число n=');
Read(n); k:= n div 4; ost:= n mod 4; case ost of
0: n:=40+k;
1: n:=40+k+1;
2: n:=40+k+2;
3: n:=40+k+3; end; ответ- ',n);
Readkey; end.
program z2_63;
uses crt; var k,n:integer;
Begin
ClrScr; Введите последнюю цифру числа n=');
Read(n); case n of
2: k:=8;
3: k:=7;
7: k:=3;
8: k:=2;
9: k:=9; else k:=n; end;
Writeln('Последня цифра куба числа- ',k);
Readkey; end.
program z2_64;
uses crt;
Label 1; var n:longint; k:integer;
Begin
ClrScr; Введите число n=');
Read(n);
1: n:=n div 10;
61 k:=k+1; if n<>0 then goto 1; Цифр в числе- ',k);
Readkey; end.
program z2_65;
uses crt;
Label a1,a2,a3,a4,a5,a6,a7; var a,s,h,rv,ro,p:real; n:integer; begin clrscr; Укажите номер пункта writeln('1. Дана сторона треугольника writeln('2. Дана площадь треугольника writeln('3. Дана высота треугольника writeln('4. Дан радиус вписанной окружности треугольника writeln('5. Дан радиус описанной окружности треугольника read(n); case n of
1:Begin Write('a=');read(a);goto a1;end;
2:begin Write('s=');read(s);goto a2;end;
3:Begin Write('h=');read(h);goto a3;end;
4:Begin Write('r=');read(rv);goto a4;end;
5:Begin Write('R=');read(ro);goto a5;end; else begin Такого номера пункта нет goto a7; end; end; a1: rv:=a/2; ro:=a/Sqrt(3); s:=sqrt(3)*sqr(a)/4; h:=2*s/a; goto a6; a2: a:=sqrt(4*s/sqrt(3)); h:=2*s/a; rv:=a/2; ro:=a/Sqrt(3); goto a6;
62 a3: a:=2*h/sqrt(3); s:=a*h/2; rv:=a/2; ro:=a/Sqrt(3); goto a6; a4: a:=2*rv; ro:=a/Sqrt(3); s:=sqrt(3)*sqr(a)/4; h:=2*s/a; goto a6; a5: a:=sqrt(3)*ro; s:=(a*a*a)/(4*ro); h:=2*s/a; rv:=a/2; a6: writeln('a=',a:2:2); writeln('s=',s:2:2); writeln('h=',h:2:2); writeln('R=',ro:2:2); writeln('r=',rv:2:2); a7: readkey; end.
program z2_66;
uses crt; var vm,vd,vg:real; begin clrscr; Введите возраст мужчины vd:=vm/2+7; vg:=2*vd-14; writeln('Возравт девушки ',vd:2:0); writeln('Возравт женщины ',vg:2:0); readkey; end.
program z2_67;
uses crt; label 1,stop; var k,p,n,m:integer; begin clrscr; Введите количество цифр в числе Введите ',k,' значное число без нулей
63 Произведение цифр числа ',n,' равно '); p:=1;
1: m:=n mod 10; if m=0 then goto stop; p:=p*m; n:=n div 10; goto 1; stop: writeln(p); readkey; end.
program z2_68;
uses crt; label a,b; var n,m:integer; begin clrscr; a: Введите целое число N<=10000:');read(n);
If n>10000 then begin Число очень большое goto a; end; write(n,' '); m:=n div 1000; case m of одна тысяча '); две тысячи '); три тысячи ');
4:write('четыри тысячи '); пять тысяч '); шесть тысяч '); семь тысяч '); восемь тысяч '); девять тысяч '); десять тысяч '); end; n:=n mod 1000; m:=n div 100; case m of сто '); двести '); триста ');
64 четыреста '); пятьсот '); шестьсот '); семьсот '); восемьсот '); девятьсот '); end; n:=n mod 100; if (n>=10) and (n<=19) then begin case n of
десять ');
11:write('одинадцать ');
двенадцать ');
тринадцать ');
четырнадцать ');
пятнадцать ');
шестнадцать ');
семнадцать ');
восемнадцать ');
девятнадцать '); end; goto b; end; m:=n div 10; case m of двадцать '); тридцать '); сорок '); пятьдесят '); шестьдесят ');
7:write('семьдесять ');
8:write('восемьдесять '); девяносто '); end; m:=n mod 10; case m of один '); два '); три '); четыре '); пять '); шесть '); семь ');
65 восемь '); девять '); end; b:readkey; end.
program z2_69;
uses crt; var a,b:real; begin clrscr; Введите 2 числа a,b неравных нулю if a*b>0 then writeln('чила одного знака) else writeln('чила разных знаков readkey; end.
program z2_70;
uses crt; var t:real; begin clrscr; Введите температуру воздуха t=');read(t); if t>60 then Пожарная ситуация) else Температура нормальная readkey; end.
program z2_71;
uses crt; label 1; var m,n:real; begin clrscr; Введите вес пакетов m,n=');read(m,n); if m>n then begin Вес 1 пакета больше, его вес, m:2:2,' кг goto 1; end; if m
66 else Вес пакетов одинаков
1:readkey; end.
program z2_72;
uses crt; var a,b,c,s1,s2:integer; begin clrscr; Введите a=');read(a); Введите b,c=');read(b,c); s1:=abs(a-b); s2:=abs(a-c); if s1>s2 then Следует идти к пункту C.') else Следует идти к пункту B.'); readkey; end.
program z2_73;
uses crt; var a,b,c:integer; begin clrscr; Введите количество собранного урожая a='); read(a); Сколько собрала Вера, b=');read(b); c:=a-b; if c>b then Валя собрала больше на ',c-b,' кг) else Вера собрала больше на ',b-c,' кг readkey; end.
program z2_74;
uses crt; var a,b,m,k,ss,sc:real; begin clrscr; Введите количество серой ткани в м read(a); Введите стоимость серой ткани в руб
67 read(b); Введите количество синей ткани в м read(k); Введите стоимость синей ткани в руб read(m); ss:=b/a; sc:=m/k; if ss>sc then Серая ткань дороже на ',ss-sc:2:2,' руб) else writeln('Сняя ткань дороже на ',sc-ss,' руб readkey; end.
program z2_75;
uses crt; var a,t1,b,t2,pt1,pt2:real; begin clrscr; Введите время работы 1 бригады в час read(t1); Введите площадь в кв.м.'); read(a); Введите время работы 2 бригады в час read(t2); Введите площадь в кв.м.'); read(b); pt1:=a/t1; pt2:=b/t2; if pt1>pt2 then Производительность 1 бригады больше на ',pt1-pt2:2:2) else Производительность 2 бригады больше на ',pt2-pt1:2:2); readkey; end.
program z2_76;
uses crt; var a,t1,t2,vd,vp:real; begin clrscr; Введите пройденный путь в км
68 read(a); Время в пути до обеда read(t1); Время в пути после обеда read(t2); vd:=20/t1; vp:=(a-20)/t2; if vd>vp then Скорость до обеда больше) else Скорость после обеда больше readkey; end.
program Z2_78;
uses crt; label 1; var x,a,c,p:real; begin clrscr;
Write('a=');read(a); Валя C кг. =');read(c); Вера P кг. =');read(p); x:=3*a/2;
If (c=x) and (p=x) then begin Правы Валя и Вера goto 1; end;
If c=x then begin Права Валя goto 1; end;
If p=x then begin Права Вера goto 1; end; Никто неправ Введите количество бензина в т. a=');read(a); v:=500*5.68/8; if a<=v then да) else нет readkey; end.
program Z2_80;
uses crt; var c,m,mp:real; begin clrscr; Введите количеством. провода c=');read(c); Введите массу провода в г. m=');read(m); mp:=430*c/5; if m>=mp then да) else нет readkey; end.
program Z2_82;
uses crt; var n:integer; begin clrscr; Введите целое число n=');read(n); if n mod 2=0 then число четное) else число нечетное Введите целое число n=');read(n); if n mod 3=0 then число делится на 3') else число не делится на 3');
uses crt; var ves,m:real; begin clrscr; write('ves=');read(ves); m:=ves*0.65; Масса молекул кислорода ',m:2:1,' кг
25 readkey; end.
program z1_57;
uses crt; var n,a,b,c:integer; begin clrscr; Количество учеников ');read(n); Количество пятерок ');read(a); Количество четверок ');read(b); Количество троек ');read(c); Троек ',c/n*100:2:1,' процентов Четверок ',b/n*100:2:1,' процентов Пятерок ',a/n*100:2:1,' процентов readkey; end.
program z1_58;
uses crt; var p1,p2,p3,p4:integer; f,s:real; begin clrscr; Введите площадь в га Количество учеников в 1 классе ');read(p1); Количество учеников в 2 классе ');read(p2); Количество учеников в 3 классе ');read(p3); Количество учеников в 4 классе ');read(p4); s:=f/(p1+p2+p3+p4); Для 1 класса ',s*p1:2:1,' га Для 2 класса ',s*p2:2:1,' га Для 3 класса ',s*p3:2:1,' га Для 4 класса ',s*p4:2:1,' га readkey; end.
program z1_61;
uses crt; var x,s:real; begin clrscr; write('x=');read(x); s:=x*(x*(x*(2*x-3)+4)-5)+6;
26 writeln('s=',s:3:3); readkey; end.
program z1_62;
uses crt; var x,s1,s2:real; begin clrscr; write('x=');read(x); s1:=1-(2+(3-4*x)*x)*x; s2:=1+(2+(3+4*x)*x)*x; writeln('s1=',s1:3:3); writeln('s2=',s2:3:3); readkey; end.
program z1_63;
uses crt; var v1,v2,v3,vsred:real; begin clrscr; Скорость на 1 участке v1=');read(v1); Скорость на 2 участке v2=');read(v2); Скорость на 3 участке v3=');read(v3); vsred:=(v1+v2+v3)/3; writeln('vsred=',vsred:3:3); readkey; end.
program z1_64;
uses crt; var summa,st:real; begin clrscr; Введите сумму денег в руб Введите стоимость ед.товара в руб Можно купить ',int(summa/st):2:0,' ед. товара Сдача составит ',summa- st*int(summa/st):2:2,' руб readkey;
27 end.
program z1_65;
uses crt; var n,x,y,z,s:integer; begin clrscr; Введите трехзначное число n=');read(n); Сумма цифр числа ',n,' равна x:=n div 100; n:=n mod 100; y:=n div 10; z:=n mod 10; s:=x+y+z; write(s); readkey; end.
program z1_66;
uses crt; var v:integer; begin clrscr; write('v=');read(v); Средний объем - ',v/5:2:3); readkey; end.
program z1_67;
uses crt; var p,f:integer; begin clrscr; Показатель Плановый p=');read(p); Выполнено фактически f=');read(f); Процент выполнения ',f/p*100:2:2, '%'); readkey; end.
program z1_68;
uses crt; var s,n:integer; begin
28 clrscr; Количество часов s=');read(s); Количество рабочих n=');read(n); Средняя загруженность ',s/n:2:2, 'час readkey; end.
program z1_69;
uses crt; var x1,x2,y1,y2:integer; begin clrscr; Координаты конца 1 вектора x1,y1=');read(x1,y1); Координаты конца 2 вектора x2,y2=');read(x2,y2); Длинна 1 вектора ',sqrt(sqr(x1)+sqr(y1)):3:2); Длинна 2 вектора ',sqrt(sqr(x2)+sqr(y2)):3:2); readkey; end.
program z1_70;
uses crt; var a:integer; begin clrscr; write('a=');read(a); writeln('v=',a*a*a); writeln('s=',6*a*a); readkey; end.
program z1_71;
uses crt; var d,n,l,kvm:real; begin clrscr; Время в час. n=');read(n); Ширина ткани в м. l=');read(l); kvm:=n*60/5; d:=kvm/l;
29 За ',n:2:2,' час. выпущено ',kvm:2:2,' кв.м. ткани При ширине ',l:2:2,' м. выпущено ',d:2:2,' м. ткани readkey; end.
program z1_72;
uses crt; var v,r,h:real; n:integer; begin clrscr; Введите радиус в м. R=');read(r); Введите высоту в м. H=');read(h); Введите количесиво бочек. N= ');read(n); v:=pi*r*r*h*n; Объем ',n,' бочек ',v:2:2,' куб.м.'); readkey; end.
program z1_73;
uses crt; var a,b,h,ug,v:real; begin clrscr; Введите длины сторон основания. a,b=');read(a,b); Введите высоту h=');read(h); Введите угол в градусах = ');read(ug); v:=a*b*sin(ug*pi/180)*h; Объем v= ',v:2:2); readkey; end.
program z1_74;
uses crt; var p,smz:real; begin clrscr; Введите величину прибыли. p=');read(p); smz:=(p-p*0.7-(p-p*0.7)*0.3)*25.4/8;
Writeln('Среднемесячна зарплата рабочего при 25.4 днях работы за месяц
30 составит ',smz:2:2,' у. ед readkey; end.
program z1_80;
uses crt; var k,s:real; begin clrscr; s:=(5*5*5*10)/(4*4*4); writeln(s:2:1, ' инкубаторских '); яиц соответствуют 10 домашним writeln('Хозяка экономит в ',s/10:2:2,' раза readkey; end.
program z1_81;
uses crt; var sd,sg,sm,p:real; begin clrscr; Введите стоимость носков детских ');read(sd); женских ');read(sg); мужских ');read(sm); p:=4*(3*sd+sg+sm); Прибыль в месяц ',p:2:2,' у.ед.'); readkey; end.
program z1_82;
uses crt; const p=80; var op:real; begin clrscr; op:=p+p*0.3+(p+p*0.3)*0.4; Оплата в месяц ',op:2:2,' у.ед.'); readkey; end.
program z1_83;
uses crt; var s1,t1,s2,t2:real;
31 begin clrscr;
Write('s1=');Read(s1);
Write('t1=');Read(t1);
Write('t2=');Read(t2); s2:=s1/t1*t2; writeln('s2= ',s2:2:2); readkey; end.
32 Раздел I I.
Program z2_1;
Uses crt; var a,b,c: Real;
Begin
Clrscr;
Write (Введите три числа a,b,c=');
Read(a,b,c);
If a>0 then a:=a*a else a:=a*a*a*a;
If b>0 then b:=b*b else b:=b*b*b*b;
If c>0 then c:=c*c else c:=c*c*c*c;
Writeln (Полученные числа ');
Writeln (a:3:6);
Writeln (b:3:6);
Writeln (c:3:6);
Readkey; end.
Program z2_2;
Uses crt; var x1,x2,y1,y2,d1,d2: Real;
Begin
Clrscr;
Write (Введите координаты точек A(x1,y1) и
B(x2,y2):');
Read(x1,y1,x2,y2); d1:=sqrt(sqr(x1)+sqr(y1)); d2:=sqrt(sqr(x2)+sqr(y2)); if d1
Readkey; end.
Program z2_3;
Uses crt;
Label 1; var ug1,ug2,ug3: Real;
Begin
33
Clrscr;
Write (Введите углы в градусах ug1,ug2=');
Read(ug1,ug2); if (ug1+ug2)>=180 then begin
Треугольник невозможен goto 1; end; Треугольник возможен он '); ug3:=180-ug1-ug2; if (ug1=90) or (ug2=90) or (ug3=90) then
прямоугольный) else
непрямоугольный if x
Writeln('y=',y:3:6);
Readkey; end.
Program z2_5;
Uses crt;
Label 1; var x,y: Real;
Begin
Clrscr;
Write ('x,y=');
Read(x,y);
Точка расположена '); if x=0 then Begin на осина оси OX'); goto 1;end; if (x>0) and (y>0) then Begin
34
впервой четверти goto 1; end; if (x<0) and (y>0) then begin
во второй четверти goto 1; end; if (x<0) and (y<0) then Begin
в третьей четверти goto 1; end else в четвертой четверти
1: Readkey; end.
Program z2_6;
Uses crt; var m,n,max: integer;
Begin
Clrscr;
Write ('m,n=');
Read(m,n); if m>n then max:=m; if m
Write('m=',m,' ','n=',n);
Readkey; end.
Program z2_7;
Uses crt; var n,x,y,z,s: integer;
Begin
Clrscr;
Write ('n=');
Read(n);
Сумма цифр '); x:=n div 100; n:=n mod 100; y:=n div 10; z:=n mod 10;
35 s:=x+y+z; if s/2=int(s/2) then четная) else нечетная Квадрат числа ',n,' равен кубу суммы его цифр kv:=n*n; x:=n div 100; n:=n mod 100; y:=n div 10; z:=n mod 10; s:=x+y+z; s:=s*s*s; if s=kv then да) else нет
Readkey; end. Для проверки это число 448}
Program z2_9;
Uses crt; var n: integer;
Begin
Clrscr;
Write ('n=');
Read(n);
Число ',n,' двухзначное четное if (n>=10) and (n<=99) and (n/2=int(n/2)) then да) else нет
Readkey; end.
Program z2_10;
Uses crt;
36 var a,b,c: real;
Begin
Clrscr;
Write ('a,b,c=');
Read(a,b,c); if (a+b<=c) or (a+c<=b) or (b+c<=a) then
треугольника с такими сторонами нет) else if (a=b) and (b=c) then треугольник равносторонний) else треугольник не равносторонний
Readkey; end.
Program z2_11;
Uses crt; var a,b,c: real;
Begin
Clrscr;
Write ('a,b,c=');
Read(a,b,c); if (a+b<=c) or (a+c<=b) or (b+c<=a) then
треугольника не существует) else if (a=b) or (b=c) or (a=c) then
треугольник равнобедренный) else треугольник не равнобедренный
Readkey; end.
Program z2_12;
Uses crt; var a,b,c: real;
Begin
Clrscr;
Write ('a,b,c=');
Read(a,b,c);
Write (Взаимно противоположные числа есть if (a=-b) or (a=-c) or (b=-c) then
Write (Да) else Write (Нет
Readkey; end.
Program z2_13;
37
Uses crt; var a,b,c: real; k: integer;
Begin
Clrscr;
Write ('a,b,c=');
Read(a,b,c);
Write (Отрицательных чисел '); if a<0 then k:=k+1; if b<0 then k:=k+1; if c<0 then k:=k+1; if k=0 then Write (Нет) else Write (k,' шт
Readkey; end.
Program z2_14;
Uses crt; var a,b,c: real; k: integer;
Begin
Clrscr;
Write ('a,b,c=');
Read(a,b,c);
Write ('Пложительных чисел '); if a>0 then k:=k+1; if b>0 then k:=k+1; if c>0 then k:=k+1; if k=0 then Write (Нет) else Write (k,' шт
Readkey; end.
Program z2_15;
Uses crt; var a,b,c: real; k: integer;
Begin
Clrscr;
Write ('a,b,c=');
Read(a,b,c);
Write (Целых чисел '); if a=int(a) then k:=k+1; if b=int(b) then k:=k+1;
38 if c=int(c) then k:=k+1; if k=0 then Write (Нет) else Write (k,' шт
Readkey; end.
Program z2_16;
Uses crt; var a,b,c,k,p: integer;
Begin
Clrscr;
Write ('a,b,c,k=');
Read(a,b,c,k);
Write (k,'-'); if a/k=int(a/k) then Begin Write(' делитель ',a);p:=1;end; if b/k=int(b/k) then Begin Write(' делитель ',b);p:=1;end; if c/k=int(c/k) then Begin Write(' делитель ',c);p:=1;end;
If p=0 then write (не является делителем предложенных чисел
Readkey; end.
Program z2_17;
Uses crt; var a,b,c,m: integer;
Begin
Clrscr;
Write (количество минут разговора m=');read (m);
Write (лимит A мин. cтоимость B руб (A,B)=');read
(a,b);
стоимость сверх лимита Сруб. за мин read(c); if m<=a then m:=m*b else m:=a*b+(m-a)*c; Оплата
Readkey; end.
39
Program z2_18;
Uses crt; var a1,b1,c1,a2,b2,c2,s1,s2,p1,p2: real;
Begin
Clrscr;
Write (Введите стороны первого треугольника a1,b1,c1=');read (a1,b1,c1);
Write (Ведите стороны второго треугольника a2,b2,c2=');read (a2,b2,c2); p1:=(a1+b1+c1)/2; p2:=(a2+b2+c2)/2; s1:=sqrt(p1*(p1-a1)*(p1-b1)*(p1-c1)); s2:=sqrt(p2*(p2-a2)*(p2-b2)*(p2-c2)); if s1=s2 then треугольники равновеликие) else треугольники неравновеликие');
Readkey; end.
Program z2_19;
Uses crt;
Label 1; var s:string;
Begin
Clrscr;
Write (Кто вы мальчик или девочка (Д" или "М read (s); if (Д) or (д) or (s='L') or (s='l') then begin Мне нравятся девочки goto 1; end; if Мм Мне нравятся мальчики goto 1; end; Ответ непонятен ('Cкорость грузового автомобиля V1 км/ч -'); read (V1);
Время выезда легкового автомобиля через t час read(t);
Write ('Cкорость легкового автомобиля V2 км/ч -'); read(v2);
Write (Время в пути легкового автомобиля t1 час read (t1);
S1:=V1*(t+t1); s2:=V2*t1;
If s1<=s2 then Легковой автомобиль догонит грузовой) else Легковой автомобиль не догонит грузовой
Readkey; end.
Program z2_21;
Uses crt; var x,y,n:integer;
Begin
Clrscr;
Write ('x,y='); read (x,y);
If x
Readkey; end.
Program z2_22;
Uses crt;
Label 1,2; var x,y:integer;
Begin
Clrscr;
Write (Введите номер месяца
Write (Введите число месяца case x of
1,3,5,7,8,10,12: if (y<1) or (y>31) then goto 1;
41 2: if (y<1) or (y>29) then goto 1;
4,6,9,11:if (y<1) or (y>30) then goto 1; else
Write (Неправильно введен номер месяца goto 2; end;
Дата введена правильно goto 2;
1: Неправильно введено число
2: Readkey; end.
Program z2_23;
Uses crt; var n:integer;
Begin
Clrscr;
Write (Введите кличество лепестков ромашки
Мы считаем- любит- нелюбит": ответ
If n/2=int(n/2) then Не любит) else Любит
Readkey; end.
Program z2_24;
Uses crt; var x,y,z,n :real;
Begin
Clrscr;
Write ('x,y,z=');read(x,y,z); if x>y then begin n:=x; x:=y; y:=x; end; if x>z then begin n:=x; x:=z; z:=x; end; if y>z then begin n:=y; y:=z; z:=y; end; n:=x+z; write('n=',n:3:6);
Readkey; end.
Program z2_25;
Uses crt; var a,b,c,uc,n :real;
Begin
Clrscr;
42
Write ('a,b,c=');read(a,b,c); if a>b then begin n:=a; a:=b; b:=n; end; if a>c then begin n:=a; a:=c; c:=n; end; if b>c then begin n:=b; b:=c; c:=n; end; if c*c=a*a+b*b then
Треугольник прямоугольный) else begin
Треугольник непрямоугольный' Угол С end;
Readkey; end.
Program z2_26;
Uses crt;
Label 1; var a,b,c,d,max, min1,min2 :real;
Begin
Clrscr;
Write ('a,b,c,d=');read(a,b,c,d); if a>b then min1:=b else min1:=a; if c>d then min2:=d else min2:=c; if min1>min2 then max:=min1 else max:=min2;
Write('max=',max:5:6);
1: Readkey; end.
Program z2_27;
Uses crt;
Label 1; var a,b,c,d,max :real;
Begin
Clrscr;
Write ('a,b,c,d=');read(a,b,c,d); if a=d then Begin Write('a=d');goto 1; end; if b=d then Begin Write('b=d');goto 1; end; if c=d then Begin Write('c=d');goto 1; end; a:=d-a; b:=b-d; c:=c-d; if a>b then max:=a else max:=b; if max
43 1: Readkey; end.
Program z2_28;
Uses crt; var x1,x2,x3,x4,y1,y2,y3,y4: Real; d1,d2,d3,d4: Real;
Begin
Clrscr;
Write ('x1,y1,x2,y2=');
Read(x1,y1,x2,y2);
Write ('x3,y3,x4,y4=');
Read(x3,y3,x4,y4); d1:=sqrt(sqr(x2-x1)+sqr(y2-y1)); d2:=sqrt(sqr(x3-x4)+sqr(y3-y4)); d3:=sqrt(sqr(x2-x3)+sqr(y2-y3)); d4:=sqrt(sqr(x1-x4)+sqr(y1-y4)); if (d1=d2) and (d3=d4) then
Да это вершины) else
Нет это не вершины
Write(' параллелограмма
Readkey;
Program z2_29;
Uses crt;
Label 1; var x1,x2,x3,y1,y2,y3: Real; ab,ac,bc,ug: Real;
Begin
Clrscr;
Write ('x1,y1,x2,y2,x3,y3=');
Read(x1,y1,x2,y2,x3,y3); ab:=sqrt(sqr(x2-x1)+sqr(y2-y1)); ac:=sqrt(sqr(x1-x3)+sqr(y1-y3)); bc:=sqrt(sqr(x2-x3)+sqr(y2-y3)); if (ab+ac<=bc) or (ab+bc<=ac) or (ac+bc<=ab) then
точки расположены на одной прямой) else
Begin
Write('
44 ug:=(sqr(ab)+sqr(bc)-sqr(ac))/(2*ab*bc);
If ug<=0 then begin ug:=90; goto 1; end; ug:=arctan(sqrt(1+1/ug))*180/pi;
1: Write(ug:3:3,' град
End;
Readkey; end
Program z2_30;
Uses crt; var a,c,b: Real;
Begin
Clrscr;
Write ('a,b,c=');
Read(a,b,c); if (aWriteln('a=',a:5:6);Writeln('b=',b:5:6);
Writeln('c=',c:5:6);
Readkey; end.
Program z2_31;
Uses crt; var x1,y1,x2,y2,x3,y3,ac,ab: Real;
Begin
Clrscr;
Write ('x1,y1,x2,y2,x3,y3=');
Read(x1,y1,x2,y2,x3,y3); ab:=sqrt(sqr(x1-x2)+sqr(y1-y2)); ac:=sqrt(sqr(x1-x3)+sqr(y1-y3)); if ab
Readkey; end.
Program z2_32;
Uses crt; var a,c,b,s: Real;
Begin
45
Clrscr;
Write ('a,b,c=');
Read(a,b,c); if (a+b<=c) or (a+c<=b) or (c+b<=a) then
Write ('’аҐгЈ®«мЁЄ Ґ ў®§¬®¦Ґ.') else
Begin
Writeln ('’аҐгЈ®«мЁЄ ў®§¬®¦Ґ.'); s:=(a+b+c)/2; s:=sqrt(s*(s-a)*(s-b)*(s-c));
Writeln ('…Ј® Ї«®й м =',s:3:6); end;
Readkey; end.
Program z2_33;
Uses crt;
Label 1; var a,b,x: Real;
Begin
Clrscr;
Write ('a,b=');
Read(a,b); if (a=0) and (b=0) then begin
Write ('X - любое goto 1; end;
Writeln ('X1=0'); if (a=0) and (b<>0) then goto 1; x:=-b/a; if x<=0 then goto 1;
Writeln('X2=',x:3:6);
Writeln('X3=-',x:3:6);
1: Readkey; end.
Program z2_34;
Uses crt; var a,r: Real;
Begin
Clrscr;
Write ('a,r=');
Read(a,r);
46 if a<=r*sqrt(3) then
Write (Поместится) else
Write (Не поместится
Readkey; end.
Program z2_35;
Uses crt; var x,y,z,max,min: Real;
Begin
Clrscr;
Write ('x,y,z=');
Read(x,y,z); if x
Write ('‡ зла п ўлзЁб«Ёвм Ґў®§¬®¦®.') else
Write ('u=',(sqr(max)- exp(x*ln(2))*min)/(sin(2*x)+max/min):3:6);
Readkey; end.
Program z2_36;
Uses crt;
Label 1; var m,a,b,c,x: real;
Begin
Clrscr;
Write ('x=');
Read(x); if x<=0 then if sin(x)
47 begin
Write(cos(x):3:6,' ',sin(x):3:6); goto 1; end; a:=sin(x); b:=cos(x); c:=ln(x); if a>b then begin m:=a; a:=b; b:=m end; if a>c then begin m:=a; a:=c; c:=m end; if b>c then begin m:=b; b:=c; c:=m end; write(a:3:6,' ',b:3:6,' ',c:3:6);
1: Readkey; end.
Program z2_37;
Uses crt;
Label 1; var m,a,b,x,y,z: real;
Begin
Clrscr;
Write (Размеры отверстия a,b=');
Read(a,b);
Write (Размеры кирпича x,y,z=');
Read(x,y,z); if a>b then begin m:=a; a:=b; b:=m end; if x>y then begin m:=x; x:=y; y:=m end; if x>z then begin m:=x; x:=z; z:=m end; if y>z then begin m:=y; y:=z; z:=m end; if (x>=a) or (y>=b) then Кирпич не пройдет через отверстие) else Кирпич пройдет через отверстие
1: Readkey; end.
Program z2_38;
Uses crt;
Label 1; var a,a1: real; s:char;
Begin
Clrscr;
Перевести в радианы или градусы (р/г):'); if (s='h') or (s='H') or (р) or (Р) then begin
Введите количество градусов
48 read(a); a1:=a*pi/180;
Write(a:3:6,' градусов' радиан end else begin
Введите количество радиан read(a); a1:=a*180/pi;
Write(a:3:6,' радиан' градусов end;
Readkey; end.
0>0>0>
1 2 3 4 5 6
program z2_38;
uses crt; var ug: Real; s: char;
Begin
ClrScr; Какой перевод осуществить в градусы или радианы в радианы, g- в грдусы');
Read(s); Введите величину угла
Read(ug);
Write(ug:3:3);
If (s='r') or (s='R') or (к) or (К) then
Write(' град' рад) else
Write(' рад' град
Readkey; end.
program z2_40;
uses crt;
Label 1; var n,m,d,n1,n2:integer;
Begin
ClrScr; Введите количество этажей в доме
Read(n); Введите номер квартиры
49
Read(m); d:=m div 3; n1:=d; n2:=0;
If (d mod 2) =0 then
Begin n1:=d+1; n2:=d-1; end;
If (n1<=n) and (n2>=1) then
Begin Лифт остановится на ',n1,' или на ',n2,' этаже goto 1;
End;
If n1>n then Лифт остановится на ',n2, ' этаже
If n2<1 then Лифт остановится на ',n1,' этаже
1: Readkey; end.
program z2_41;
uses crt; var a,b,c,s1,s2,s3:Real;
Begin
ClrScr; Введите три числа a,b,c=');
Read(a,b,c); s1:=a+b; s2:=a+c; s3:=b+c; if (s1>0) or (s2>0) or (s3>0) then
да)
Else
нет
Readkey; end.
program z2_42;
uses crt;
Label 1; var a1,a2,a3,a4:Real; n: integer;
Begin
50
ClrScr; Введите числа a1,a2,a3,a4=');
Read(a1,a2,a3,a4);
If (a1<>a2) and (a1<>a3) and (a1<>a4) Then begin n:=1; goto 1; end;
If (a1<>a2) and (a2<>a3) and (a2<>a4) Then begin n:=2; goto 1; end;
If (a1<>a3) and (a2<>a3) and (a3<>a4) Then begin n:=3; goto 1; end; n:=4;
1: Это число под номером ',n);
Readkey; end.
program z2_43;
uses crt;
Label 1; var a,b:longint;
Begin
ClrScr; Введите числа a,b=');
Read(a,b);
If a+b>32767 Then
Переполнение)
Else
Writeln (Сумма ',a,' + ',b,' = ',a+b);
Readkey; end.
program z2_44;
uses crt;
Label 1; var a,b,c,x1,x2,d:real;
Begin
ClrScr; Введите числа a>0: a,b,c=');
Read(a,b,c); d:=b*b-4*a*c;
If (d<0) or (d=0) and (-b/(2*a)<0) then begin Корней нет goto 1; end;
If d=0 then begin x1:=sqrt(-b/(2*a)); Два корня оба различны
51 Первый корень ',x1:5:6); Второй корень - ',x1:5:6); goto 1; end; x1:=(-b+sqrt(d))/(2*a); x2:=(-b-sqrt(d))/(2*a); if x1<0 then begin x1:=sqrt(x2); Два корня оба различны Первый корень ',x1:5:6); Второй корень - ',x1:5:6); goto 1; end; if x2<0 then begin x1:=sqrt(x1); Два корня оба различны Первый корень ',x1:5:6); Второй корень - ',x1:5:6); goto 1; end; Четыре корня все различны Первый корень ',sqrt(x1):5:6); Второй корень - ',sqrt(x1):5:6); Третий корень ',sqrt(x2):5:6); Четвертый корень - ',sqrt(x2):5:6);
1:Readkey; end.
program Z2_45;
uses crt; label 1; var x,y,z,k:real; begin clrscr;
Write('x,y,z=');read(x,y,z); if (x*y*z)>=1 then begin if x>y then y:=(x+z)/2 else x:=(y+z)/2; goto 1; end; if x>y then begin k:=x;x:=y;y:=k;end;
52 if x>z then begin k:=x;x:=z;z:=k;end; if y>z then begin k:=y;y:=z;z:=k;end; x:=(z+y)/2;
1: Write(x:2:2,' ',y:2:2,' ',z:2:2); readkey; end.
program Z2_46;
uses crt; label a; var ug,a1,a2,b1,b2,c1,c2,k1,k2:real; begin clrscr;
Write('a1,b1,c1=');read(a1,b1,c1);
Write('a2,b2,c2=');read(a2,b2,c2); k1:=-a1/b1; k2:=-a2/b2; if k1*k2=-1 then begin Прямые перпендикулярны goto a; end; ug:=abs((k2-k1)/(1+k1*k2)); ug:=arctan(ug)*180/pi; write('ug=',ug:2:2); a: readkey; end.
program Z2_47;
uses crt; label 1; var x,y,z,k:real; begin clrscr;
Write('x,y,z=');read(x,y,z); if (x*y*z)>=1 then begin if x>y then y:=(x+z)/2 else x:=(y+z)/2; goto 1; end; if x>y then begin k:=x;x:=y;y:=k;end; if x>z then begin k:=x;x:=z;z:=k;end; if y>z then begin k:=y;y:=z;z:=k;end;
53 x:=(z+y)/2;
1: Write(x:2:2,' ',y:2:2,' ',z:2:2); readkey; end.
program Z2_48;
uses crt; label 1; var x,y,a1,b1,c1,a2,b2,c2:real; begin clrscr;
Write('a1,b1,c1=');read(a1,b1,c1);
Write('a2,b2,c2=');read(a2,b2,c2); if (b1=0) or (b2=0) or (a2-b2*a1/b2=0) then begin Корней нет 1; end; x:=(c2-b2*c1/b1)/(a2-b2*a1/b2); y:=(c1-a1*x)/b1;
Writeln('x=',x:2:2); writeln('y=',y:2:2);
1:readkey; end.
program z2_49;
uses crt;
Label 1; var x1,x2,y1,y2,a,b,b1,c,d,k,r:Real; k1,k2:integer;
Begin
ClrScr; Введите k,b=');
Read(k,b); Введите r=');
Read(r); a:=1+k*k; b1:=2*k*b; c:=b*b-r*r; d:=b1*b1-4*a*c; if d<0 then begin Точек пересечения нет goto 1; end; if d=0 then
54 begin Прямая касается окружности в точке '); с координатами
Write('x=',-b1/(2*a):5:6,'y=',-(b1*k)/(2*a)+b:5:6); goto 1; end; x1:=(-b1+sqrt(d))/(2*a); x2:=(-b1-sqrt(d))/(2*a); y1:=k*x1+b; y2:=k*x2+b;
If x1*y1>0 then if x1>0 then k1:=1 else k1:=4 else if x1>0 then k1:=4 else k1:=2;
If x2*y2>0 then if x2>0 then k2:=1 else k2:=4 else if x2>0 then k2:=4 else k2:=2; точек пересечения две
Writeln(x1:5:6,';',y1:5:6,' координатная четверть ',k1);
Writeln(x2:5:6,';',y2:5:6,' координатная четверть ',k2);
1: Readkey; end.
program z2_52;
uses crt; var n,kvn:integer;
Begin
ClrScr; Введите последнюю цифру числа n=');
Read(n); case n of
0:kvn:=0;
1,9:kvn:=1;
2,8:kvn:=4;
3,7:kvn:=9;
4,6:kvn:=6;
5:kvn:=5; end; Последняя цифра квадрата числа- ',kvn);
Readkey; end.
program z2_53;
uses crt; var f,kd,god,mes:integer;
55
Begin
ClrScr; Введите год god=');
Read(god); Введите номер месяца mes=');
Read(mes); f:=28; if god mod 4 =0 then f:=29; case mes of
1,3,5,7,8,10,12:kd:=31;
2:kd:=f;
4,6,9,11:kd:=30; end; Количество дней в ',mes,' месяце ',kd,' дней
Readkey; end.
program z2_54;
uses crt;
Label 1; var f:integer; d:string;
Begin
ClrScr;
1: Введите цифру от 0 до 9 -');
Read(f); if (f>9) or (f<0) then goto 1; case f of
0:d:='zero';
1:d:='one';
2:d:='two';
3:d:='three';
4:d:='four';
5:d:='five';
6:d:='six';
7:d:='seven';
8:d:='eight';
9:d:='nine'; end;
Write(f,' - ',d);
Readkey; end.
56
program z2_55;
uses crt;
Label 1; var f:integer; d:string;
Begin
ClrScr;
1: Введите вашу оцеку 1 до 5 -');
Read(f); if (f>5) or (f<1) then goto 1; case f of плохо неудовлетворительно удовлетворительно хорошо отлично end;
Write(f,' - ',d);
Readkey; end.
program z2_56;
uses crt;
Label 1; var n:integer; d,r,c,s:real;
Begin
ClrScr;
1: Введите номер элемента от 1 до 3: n=');
Read(n); if (n>3) or (n<1) then goto 1; case n of
1:Begin введите радиус r=');read(r);s:=pi*r*r; end;
2:Begin введите диаметр d=');read(d);s:=pi*d*d/4; end;
3:Begin введите длину окружности с end;
Write('пложадь круга s=',s:5:3);
Readkey;
program z2_57;
uses crt;
57
Label 1,2,3,4,5,6; var n:integer; a,b,h,s:real;
Begin
ClrScr;
1: Введите номер элемента от 1 до 4: n=');
Read(n); if (n>4) or (n<1) then goto 1; case n of
1:Begin введите катет a=');read(a);goto 2; end;
2:Begin введите гипотенузу b=');read(b);goto
3; end;
3:Begin введите высоту h=');read(h);goto
4;end;
4:Begin введите площадь s=');read(s);goto
5;end; end;
2:s:=a*a/2; b:=sqrt(2)*a; h:=b/2;
Write('s=',s:5:3,' b=',b:5:3,' h=',h:5:3);goto 6;
3:a:=b/sqrt(2);h:=b/2;s:=a*a/2;
Write('s=',s:5:3,' a=',a:5:3,' h=',h:5:3);goto 6;
4:b:=2*h;a:=b/sqrt(2);s:=a*a/2;
Write('s=',s:5:3,' b=',b:5:3,' a=',a:5:3);goto 6;
5:a:=sqrt(2*s);b:=sqrt(2)*a;h:=b/2;
Write('h=',h:5:3,' b=',b:5:3,' a=',a:5:3);
6: Readkey; end.
program z2_58;
uses crt;
Label 1; var m:integer; d:string;
Begin
ClrScr;
1: Введите номер месяца -');
Read(m); if (m>12) or (m<1) then goto 1; case m of февраль март
58 апрель май июнь июль август сентябрь октябрь ноябрь декабрь январь end;
Write(m,' - ',d);
Readkey; end.
program z2_59;
uses crt; label 1; const zima: декабрь, январь, февраль vesna: март, апрель, май leto: июнь, июль, август osen: сентябрь, октябрь, ноябрь var n:integer;
Begin
ClrScr;
1: Введите номер времени года от 1 до 4: n=');
Read(n); if (n>4) or (n<1) then goto 1; case n of
1: зима
2: весна
3: лето
4: осень end;
Readkey; end.
program z2_60;
uses crt;
Label 1,2; var k,ost:integer;
Begin
ClrScr;
59 1: Введите число от 1 до 99: k=');
Read(k); if (k>99) or (k<1) then goto 1; ost:=k mod 10; Мне ',k);
If (k>=5) And (k<=20) then begin Write(' лет goto 2; end; case ost of
1: Write(' год
2..4: Write(' года else
Write(' лет end;
2:Readkey; end.
program z2_61;
uses crt;
Label 1; var k:integer; l: real;
Begin
ClrScr;
1: Введите номер единицы измерения от 1 до 5: k=');
Read(k); if (k<1) or (k>5) then goto 1; Введите длину отрезка l=');
Read(l); case k of
1: l:=l/10;
2: l:=l*1000;
4: l:=l/1000;
5: l:=l/100; end; величина отрезкам Введите число n=');
Read(n); k:= n div 4; ost:= n mod 4; case ost of
0: n:=40+k;
1: n:=40+k+1;
2: n:=40+k+2;
3: n:=40+k+3; end; ответ- ',n);
Readkey; end.
program z2_63;
uses crt; var k,n:integer;
Begin
ClrScr; Введите последнюю цифру числа n=');
Read(n); case n of
2: k:=8;
3: k:=7;
7: k:=3;
8: k:=2;
9: k:=9; else k:=n; end;
Writeln('Последня цифра куба числа- ',k);
Readkey; end.
program z2_64;
uses crt;
Label 1; var n:longint; k:integer;
Begin
ClrScr; Введите число n=');
Read(n);
1: n:=n div 10;
61 k:=k+1; if n<>0 then goto 1; Цифр в числе- ',k);
Readkey; end.
program z2_65;
uses crt;
Label a1,a2,a3,a4,a5,a6,a7; var a,s,h,rv,ro,p:real; n:integer; begin clrscr; Укажите номер пункта writeln('1. Дана сторона треугольника writeln('2. Дана площадь треугольника writeln('3. Дана высота треугольника writeln('4. Дан радиус вписанной окружности треугольника writeln('5. Дан радиус описанной окружности треугольника read(n); case n of
1:Begin Write('a=');read(a);goto a1;end;
2:begin Write('s=');read(s);goto a2;end;
3:Begin Write('h=');read(h);goto a3;end;
4:Begin Write('r=');read(rv);goto a4;end;
5:Begin Write('R=');read(ro);goto a5;end; else begin Такого номера пункта нет goto a7; end; end; a1: rv:=a/2; ro:=a/Sqrt(3); s:=sqrt(3)*sqr(a)/4; h:=2*s/a; goto a6; a2: a:=sqrt(4*s/sqrt(3)); h:=2*s/a; rv:=a/2; ro:=a/Sqrt(3); goto a6;
62 a3: a:=2*h/sqrt(3); s:=a*h/2; rv:=a/2; ro:=a/Sqrt(3); goto a6; a4: a:=2*rv; ro:=a/Sqrt(3); s:=sqrt(3)*sqr(a)/4; h:=2*s/a; goto a6; a5: a:=sqrt(3)*ro; s:=(a*a*a)/(4*ro); h:=2*s/a; rv:=a/2; a6: writeln('a=',a:2:2); writeln('s=',s:2:2); writeln('h=',h:2:2); writeln('R=',ro:2:2); writeln('r=',rv:2:2); a7: readkey; end.
program z2_66;
uses crt; var vm,vd,vg:real; begin clrscr; Введите возраст мужчины vd:=vm/2+7; vg:=2*vd-14; writeln('Возравт девушки ',vd:2:0); writeln('Возравт женщины ',vg:2:0); readkey; end.
program z2_67;
uses crt; label 1,stop; var k,p,n,m:integer; begin clrscr; Введите количество цифр в числе Введите ',k,' значное число без нулей
63 Произведение цифр числа ',n,' равно '); p:=1;
1: m:=n mod 10; if m=0 then goto stop; p:=p*m; n:=n div 10; goto 1; stop: writeln(p); readkey; end.
program z2_68;
uses crt; label a,b; var n,m:integer; begin clrscr; a: Введите целое число N<=10000:');read(n);
If n>10000 then begin Число очень большое goto a; end; write(n,' '); m:=n div 1000; case m of одна тысяча '); две тысячи '); три тысячи ');
4:write('четыри тысячи '); пять тысяч '); шесть тысяч '); семь тысяч '); восемь тысяч '); девять тысяч '); десять тысяч '); end; n:=n mod 1000; m:=n div 100; case m of сто '); двести '); триста ');
64 четыреста '); пятьсот '); шестьсот '); семьсот '); восемьсот '); девятьсот '); end; n:=n mod 100; if (n>=10) and (n<=19) then begin case n of
десять ');
11:write('одинадцать ');
двенадцать ');
тринадцать ');
четырнадцать ');
пятнадцать ');
шестнадцать ');
семнадцать ');
восемнадцать ');
девятнадцать '); end; goto b; end; m:=n div 10; case m of двадцать '); тридцать '); сорок '); пятьдесят '); шестьдесят ');
7:write('семьдесять ');
8:write('восемьдесять '); девяносто '); end; m:=n mod 10; case m of один '); два '); три '); четыре '); пять '); шесть '); семь ');
65 восемь '); девять '); end; b:readkey; end.
program z2_69;
uses crt; var a,b:real; begin clrscr; Введите 2 числа a,b неравных нулю if a*b>0 then writeln('чила одного знака) else writeln('чила разных знаков readkey; end.
program z2_70;
uses crt; var t:real; begin clrscr; Введите температуру воздуха t=');read(t); if t>60 then Пожарная ситуация) else Температура нормальная readkey; end.
program z2_71;
uses crt; label 1; var m,n:real; begin clrscr; Введите вес пакетов m,n=');read(m,n); if m>n then begin Вес 1 пакета больше, его вес, m:2:2,' кг goto 1; end; if m
66 else Вес пакетов одинаков
1:readkey; end.
program z2_72;
uses crt; var a,b,c,s1,s2:integer; begin clrscr; Введите a=');read(a); Введите b,c=');read(b,c); s1:=abs(a-b); s2:=abs(a-c); if s1>s2 then Следует идти к пункту C.') else Следует идти к пункту B.'); readkey; end.
program z2_73;
uses crt; var a,b,c:integer; begin clrscr; Введите количество собранного урожая a='); read(a); Сколько собрала Вера, b=');read(b); c:=a-b; if c>b then Валя собрала больше на ',c-b,' кг) else Вера собрала больше на ',b-c,' кг readkey; end.
program z2_74;
uses crt; var a,b,m,k,ss,sc:real; begin clrscr; Введите количество серой ткани в м read(a); Введите стоимость серой ткани в руб
67 read(b); Введите количество синей ткани в м read(k); Введите стоимость синей ткани в руб read(m); ss:=b/a; sc:=m/k; if ss>sc then Серая ткань дороже на ',ss-sc:2:2,' руб) else writeln('Сняя ткань дороже на ',sc-ss,' руб readkey; end.
program z2_75;
uses crt; var a,t1,b,t2,pt1,pt2:real; begin clrscr; Введите время работы 1 бригады в час read(t1); Введите площадь в кв.м.'); read(a); Введите время работы 2 бригады в час read(t2); Введите площадь в кв.м.'); read(b); pt1:=a/t1; pt2:=b/t2; if pt1>pt2 then Производительность 1 бригады больше на ',pt1-pt2:2:2) else Производительность 2 бригады больше на ',pt2-pt1:2:2); readkey; end.
program z2_76;
uses crt; var a,t1,t2,vd,vp:real; begin clrscr; Введите пройденный путь в км
68 read(a); Время в пути до обеда read(t1); Время в пути после обеда read(t2); vd:=20/t1; vp:=(a-20)/t2; if vd>vp then Скорость до обеда больше) else Скорость после обеда больше readkey; end.
program Z2_78;
uses crt; label 1; var x,a,c,p:real; begin clrscr;
Write('a=');read(a); Валя C кг. =');read(c); Вера P кг. =');read(p); x:=3*a/2;
If (c=x) and (p=x) then begin Правы Валя и Вера goto 1; end;
If c=x then begin Права Валя goto 1; end;
If p=x then begin Права Вера goto 1; end; Никто неправ Введите количество бензина в т. a=');read(a); v:=500*5.68/8; if a<=v then да) else нет readkey; end.
program Z2_80;
uses crt; var c,m,mp:real; begin clrscr; Введите количеством. провода c=');read(c); Введите массу провода в г. m=');read(m); mp:=430*c/5; if m>=mp then да) else нет readkey; end.
program Z2_82;
uses crt; var n:integer; begin clrscr; Введите целое число n=');read(n); if n mod 2=0 then число четное) else число нечетное Введите целое число n=');read(n); if n mod 3=0 then число делится на 3') else число не делится на 3');