|
var a,b:Byte; begin Writeln ('vvedite a i b'); write ('a='); Readln (a); write ('b='); Readln (b); if (a mod 2)=0 then Writeln (a*b) else Writeln (a+b); Readln (a); end. | var x:real; begin Writeln ('vvedite x'); write ('x='); Readln (x); if x>0 then Writeln ('y=', Exp(3*ln(x))+exp((1/2)*ln(x*x-x)):1:3) else Writeln ('y=', Ln(Abs(x-1))+sin(x)/cos(x):1:3); Readln (x); end. |
| |||
var a,b,c:Real; begin Writeln ('vvedite a,b i c'); write ('a='); Readln (a); write ('b='); Readln (b); write ('c='); Readln (c); if (a>b) and (a>c) then writeln (a:1:2) else if (b>a) and (b>c) then Writeln (b:1:2) else Writeln (c:1:2); Readln (a); end. | var x,y:real; begin Writeln ('vvedite x i y'); write ('x='); Readln (x); write ('y='); Readln (y); if (x=0) and (y<>0) then Writeln ('tochka legit na Oy'); if (Y=0) and (x<>0) then Writeln ('tochka legit na Ox'); if (x>0) and (y>0) then writeln ('1 chetvert'); if (x<0) and (y<0) then writeln ('3 chetvert'); if (x<0) and (y>0) then writeln ('2 chetvert'); if (x>0) and (y<0) then writeln ('4 chetvert'); if (x=0) and (y=0) then Writeln ('tochka nachala koordinat'); Readln (x); end. |
| |||
var a,b,c:integer; begin Writeln ('vvedite a,b i c'); write ('a='); Readln (a); write ('b='); Readln (b); write ('c='); Readln (c); if (a>b) and (a<c) or (a<b) and (a>c) then writeln (a) else if (b>a) and (b<c) or (b<a) and (b>c) then Writeln (b) else Writeln (c); Readln (a); end. |
| var a,b,c,d:real; begin Writeln ('vvedite a,b,c i d'); write ('a='); Readln (a); write ('b='); Readln (b); write ('c='); Readln (c); write ('d='); Readln (d); if (a<b) and (a<c) and (a<d) then writeln (a:1:2); if (b<a) and (b<c) and (b<d) then Writeln (b:1:2); if (c<a) and (c<b) and (c<d) then Writeln (c:1:2); if (d<a) and (d<c) and (d<b) then Writeln (d:1:2); Readln (a); end. | |||
var a,b,c:real; k:Byte; begin Writeln ('vvedite a,b,c'); write ('a='); Readln (a); write ('b='); Readln (b); write ('c='); Readln (c); k:=0; If a=0 then k:=k+1; If b=0 then k:=k+1; If c=0 then k:=k+1; Writeln (k); Readln (a); end. |
| var a,b,c:real; begin Writeln ('vvedite a,b i c'); write ('a='); Readln (a); write ('b='); Readln (b); write ('c='); Readln (c); if (a<b) and (a<c) then writeln (b*c:1:2); if (b<c) and (b<a) then writeln (a*c:1:2); if (c<b) and (c<a) then writeln (b*a:1:2); Readln (a); end. |
| ||
var a,b:Byte; begin Writeln ('vvedite M i N'); write ('M='); Readln (a); write ('N='); Readln (b); if (a mod b)=0 then Writeln (a/b:1:0) else Writeln ('M na N nacelo ne delitsya'); Readln (a); end. |
| var a,b,c,d,k:integer; begin Writeln ('vvedite a,b,c,d'); write ('a='); Readln (a); write ('b='); Readln (b); write ('c='); Readln (c); write ('d='); Readln (d); k:=0; If a<0 then k:=k+1; If b<0 then k:=k+1; If c<0 then k:=k+1; If d<0 then k:=k+1; Writeln (k); Readln (a); end. | |||
var a,b:integer; begin Writeln ('vvedite a,b'); write ('a='); Readln (a); write ('b='); Readln (b); If Abs(a)>Abs(b) then Writeln (a/5:1:2) else Writeln ('modyl a < modyla b'); Readln (a); end. |
| var a,b,c:real; begin Writeln ('vvedite x,y,z'); write ('x='); Readln (a); write ('y='); Readln (b); write ('z='); Readln (c); If (a+b+c)>(a*b*c) then Writeln ('x+y+z=', (a+b+c):1:2) else Writeln ('x*y*z=', (a*b*c):1:2); Readln (a); end. | |||
var a,b:real; begin Writeln ('vvedite x,y'); write ('x='); Readln (a); write ('y='); Readln (b); If (a*a+b*b*b)>(b*b+a*a*a) then Writeln ('x*x+y*y*y=', (a*a+b*b*b):1:2) else Writeln ('y*y+x*x*x=', (b*b+a*a*a):1:2); Readln (a); end. |
| var a,b,c:real; begin Writeln ('vvedite a,b,c'); write ('a='); Readln (a); write ('b='); Readln (b); write ('c='); Readln (c); If a>0 then Writeln (a*a:1:2) else Writeln (a:1:2); If b>0 then Writeln (b*b:1:2) else Writeln (b:1:2); If c>0 then Writeln (c*c:1:2) else Writeln (c:1:2); Readln (a); end. | |||
|
|
|
| ||
|
|
|
| ||
|
|
|
|
Дата добавления: 2015-11-04; просмотров: 44 | Нарушение авторских прав
<== предыдущая лекция | | | следующая лекция ==> |
По большинству перечисленных ниже книг ещё будет учиться не одно поколение | | | Teenagers shouldn’t drive |