) integer
) boolean
) single
) word
) trunc(x) cos(x)
) div mod
?
) exp(x)
賿
) sqrt(x) sqr(x
:
) round(x)
( boolean)?
) false true
.
) byte
. , .
program alg;
var S,I:integer;
begin
S:=0;
for I:=1 to 100 do
S:=S+I*I;
write(S:5)
end.
)
. , .
program alg;
var A,B:integer;
begin
B:=5;
A:=B + 19;
write(A, B:5)
end.
)
. , .
program alg;
var S, I:integer;
begin
write(' S= ');readln(S);
if S>0 then I:=S else I:=S*S;
write(S, I:5)
end.
)
?
...
type Massiv=array[1..10] of integer;
var A:Massiv;
)
?
...
type Student=array[1..100] of real;
var A:Student;
...
)
. A,B C:
program alg;
var A:real; B:integer; C:boolean;
) A - , B - , C -
. , :
) readln writeln:=
:
) for i:= 1 to N do
) type vektor=array[1..N] of real;
:
) exp(x) sin(x) sqrt(x)
[a,b]:
) (a<=x) and (x<=b)
?
...
type Massiv=array[1..10, 1..5] of real;
var A:Massiv;
)
: 
, :
) t = exp((1/3)*ln(B*sqrt(cos(t-sqrt(a)))))/(B+exp(3*ln(a)))*1/(b-a);
: 
, :
) t = (exp((x+3)-1)/(exp((1/3)*ln(x))+1)+a/(x+b));
: 
, :
) m = exp((1/5)*ln(x+exp((1/7)*ln(x+exp((3)*ln(sqr(x)))))));
: 
, :
) t = exp((1/5)*ln(x+(exp(3*ln(b))-x)))/(3*exp(3*ln(cos(x))));
: 
, :
|
|
|
) m = exp((1/7)*ln(x+sqr(ln(x-a))))+B/exp(3*ln(x));
: 
, :
) L = exp(exp((3)*ln(x))+exp(sqr(x)))*sin(exp(3*ln(x)))/exp((3)*ln(cos(x)));
: 
, :
) L = A+exp((1/x)*ln(A+x))+ln(x)/ln(4);
: 
, :
) f = b/(exp((1/3)*ln(c-k)))*sqr(ln(k/(B+A)));
: 
, :
) y = exp((1/3)*ln(a*sqrt((b*x)/(A-x)))+c);
: 
, :
) y = exp((1/3)*ln(A*exp(7*ln(sin(exp((5)*ln(x))))))+c);
:
A)
{$N+, E+}
Begin
Write(Sqrt(1+Sqrt(1+Sqrt(2))), < , (1+Sqrt(5))/2); readln
End.
:
)
{$N+, E+}
Begin
Write(Exp(Exp(1)*Ln(Pi)), < , Exp(Pi)); readln
End.
:
)
{$N+, E+}
Begin
Write(Ln(6)/Ln(5), > ,Ln(7)/Ln(6)); readln
End.
:
)
{$N+, E+}
Var x, Left, Right: Real;
Begin
x:=sin(y);
Left:=ArcTan(x/Sqrt((1-Sqr(x))));
Write(˳ : , Left);
Right:=3*Pi-10;
Write( : , Right); readln
End.
:
)
{$N+, E+}
Var s, Left, Right: Real;
Begin
Left:=16*Cos(2*Pi/s);
Write(˳ : , Left);
s:=Sqrt(17);
Right:=Sqrt(34-2*s)+s-1+2*Sqrt(17+3*s-Sqrt(170+38*s));
Write( : , Right); readln
End.
'...
)
: var s:array[1..12] of real;
) 12
var w:array[1..12,1..5] of real;
) 60;
( ),
)
...
)
FOR I:=1 TO N DO WRITELN([I]:4); ...
)
FOR I:=1 TO N DO WRITE([I]:4); ...
)
...
)
: for i:=1 to 10 do s:=s+s[i];
)
: for i:=1 to 10 do s:=s*s[i];
)
: for i:=1 to 10 do s:=s+1;
) 1
- :
)
A3[7] ...
) 3 7
B[33]:=99 ...
) 33- 99;
?
)
. , :
readln(a); S:=a*a;
writeln(S)
) ,
|
|
|
X :
program modula;
var X:integer;
begin
X:=2;
if X-X*X>0 then X:=-X else X:=X-2;
writeln(X:5);
end.
) 0
x y real. :
x:=5.1; y:=4.8;
writeln(x+y:5:2);
) 9.90
:
) 2,0
³ :
) Spice Girls
:
) sin(x) cos(x) ArcSin(x)
:
).27
?
program first;
var S,a,b:real;
begin
readln(a); readln(b);
S:=0.5*a*b; writeln(S);
end.
) a b
x :
x:=15;
x:=x-10;
) 5
x y :
x:=3; y:=3;
y:=x+y; y:=x-2*y;
) x=3 y=-9
[(ax-b)x+c]x-d
) ((a*x-b)*x+c)*x-d
x4+5*x:
) sqr(sqr(x))+5*x
(1+x)2:
) (1+x)*(1+x)
|a+bx|
) abs(a+b*x)
s :
s:=0; n:=5;
for i:=1 to n do
s:=s+i;
) 15
X, Y,Z :
)
Var x, y, z, max: Real;
Begin
Write( 3- : );
Readln(x,y,z);
If x>y then max:=x else max:=y;
If z>max then max:=z;
Write(Max= , max); readln
End.
X, Y,Z :
)
Var x, y, z, s, d: Real;
Begin
Write( 3- : );
Readln(x,y,z);
s:=x+y+z; d:=x*y*z;
If s>p then Write( : , s, >, p) else
If s>p then Write( : , p, >, s) else
Write( , s, =, p); readln
End.
:
)
Var x, y: Real;
Begin
Write( =? , #8);
Readln(x);
If (x>0) or (Frac(x)=0) then y:=Int(x) else y:=Int(x)-1
Write([, x, ] = , y: 1: 0) { }
Write([, x, ] = , x-y: 1: 15) { }
End.
:
A)
Var n, i: 1..20; f: Comp;
Begin
Write( );
Readln(n);
f:=0;
for i:=1 to n do f:=f*i;
Writeln(n:40, ! = , f: 0: 0)
End.
n :
)
q:=0;
while n>9 do begin
Inc(q);
n:=n div 10 end;
n :
)
s:=n mod 10;
while n>9 do begin
n:=n mod 10;
s:=s+n mod 10; end;
y=4x3-2x2+5 , -3 1, 0,1 :
A)
{$N+,E+,R+}
Var x,y:Extended;
Begin
x:=-3;
Repeat
y:=2*Sqr(x)*(2*x-1)+5;
Write(x= , x:5: 1, y= ,y: 10: 4, :12);
x:=x+0.1
until x<1;
End.
)
, :
) var x, y, real;
A:=21.2;
For x:=4 to 8 do;
y:=A*x + SQR(x);
End;
:
) Label 22;
var a, b, c, p, z: real;
Begin
b:=3.2;
c:=4.3;
22: write( );
Readln(a);
p:=a + b + c;
z:= a*p +b*p + c*p;
if z>0 then begin
|
|
|
z:=SQR(z);
End;
Goto 22
End.
:
) var i: real;
s: integer;
i:=10;
Repeat
y:= SQR(i)
until i>10;
Write y;
:
) var s,y,x: real;
Begin
s:=0; x:=0.4;
Repeat
y:=x*sin(x);
s:=s+y;
until s>2;
End;end.
:
) var A, x, y: real
i: integer
Begin
A:=4.2; x:=0.5;
for i:=1 to 5do
Begin
y:=sin(x+A)*x;
End; end.
:
) var x, a, b, y, h:real;
Begin
Readln(a, b, h);
x:=a;
while x<=b+h/2 do
Begin
y:=x*sin(x);
writeln(x:6:1, y:9:2);
x:=x+h
End; end.
:
) var x, y, z, A: real;
i: integer;
Begin
A:=4.2;
x:=0.4;
for i:=1 to 5 do
Begin
y:=x+sin(x+A);
End; end.
:
) var D, x, y, A: real;
i: integer;
Begin
A:=1.2;
x:=0.5; D:=1;
for i:=1 to 8 do
Begin
y:=sin(A+x);
D:=D+y;
End; end.
:
) var x, y, z, D: real;
Begin
D:=0;
x:=4.2;
z:=3.4;
Repeat
y:=x*sin(x+z);
D:=D+y;
until D>4;
End; end.
:
) var p: integer;
Begin
p:=2;
while p<10 do
Begin
p:=2*p+1;
p:=p+1;
End; end.
:
) var p, z: real;
p:=7.1;
while (p>7) and (p<20) do begin
p=(p+3)/2
p=p-1
End;
:
) var x, y, s, min: real;
i: integer;
Begin
x:=0.5; s:=5.2;
min:=x*(s+x);
for i:=1 to5 do begin
y:=x*(s+x);
if min>y then min:=y;
x:=x+0.2;
end; writeln(min=,min:4:2);
End.
:
) var x, y, s, max: real;
i: integer;
Begin
x:=0.4;s:=9.5;
max:=x*sin(x+s);
for i:=1 to 5 do begin
y:=x*sin(x+s);
if max>y then max:=y;
x:=x+0.3;
end; writeln(max=,max:4:2);
End.
:
:
) var s, x, y: real;
i: integer;
Begin
s:=0; x:=2.4;
for i:=1 to 15 do begin
y:=ln(x)*sin(x);
s:=s+y;
end; writeln(s=,s:4:2);
End.
:
) var D, x, y: real;
i: integer;
Begin
D:=1; x:=0.8;
for i:=1 to 14 do
Begin
y:=cos(x)*x;
D:=D*y;
end; writeln(D=,D:4:2);
End.
:
) Label 333;
var x, y, z:real;
x:=0.5; z:=0.5;
333: y:=cos(x+z)+z;
x:=x+0.1;
if y>2 then
Goto 333
End;
:
) var A, x, y: real;
Begin
A:=4.5; x:=0.2;
for i:=1 to12 do begin
y:=sin(x+A)*x
End; end.
:
) var A, B, x, y: real;
Begin
A:=2.4; B:=0.4; x:=0.8;
Repeat
y=cos(A+B)*log(x);
x:=x+y;
until x<4
End; end.
:
) var x, y, z, A: real;
i: integer;
Begin
A:=4.2; x:=0.4;
for i:=1 to 5 do begin
y=x+ln(x+A);
writeln(y= , y:5:2); end;
Readln; end.
:
|
|
|
) var a:array[1..20] of real;
i:integer;
Begin
maxA:=A[1];
for i:=2 to 20 do
Begin
if maxA>A[i] then
maxA:=A[i];
End;
Writeln(maxA);
End.
:
) var a:array[1..15] of real;
i:integer;
maxA:=A[1];
while i<=15 do begin
if A[i]>maxA then
A[i]:=maxA; i:=i+1; end;
Writeln(maxA); end.
:
) var a:array[1..15] of real;
i:integer;
Begin
i:=1;
Repeat
if maxA>A[i] then
maxA:=A[i];
until i<15;
Write(maxA); end.
:
) var a:array[1..20] of real; i:integer;
Begin
minA:=A[i];
for i:=2 to 20 do begin
if A[i]<minA then
A[i]:=minA; end;
Writeln(minA);
End.
:
) var a:array[1..15] of real; i:integer;
minA:=A[i];
while i<=15 do begin
if A[i]<minA then
A[i]:=minA; i:=i+1; end;
Writeln(minA); end.
:
a) var a:array[1..15] of real; i: integer;
Begin
i:=1;
Repeat
if minA:>A[i] then
minA:=A[i];
until i<15;
Write(minA); end.
:
) var a:array[1..10] of real; s,i:real;
Begin
for i:=1 to 10 do begin
s:=s+A[i]; i:=i+1; end;
writeln(s:4:2); end.
:
) var a:array[1..20] of real; n,i,j,c: integer;
Begin
for i:=1 to n do
if a[i]>a[i+1] then begin
a[i+1]:=a[i]; end;
for i:=1 to n do
write(a[i]:4); end.
) var a:array[1..10] of real; i:integer; d:real;
Begin
d:=1;
for i:=1 to 10 do begin
d:=d*A[i]; end;
writeln(d:4:2); end.
:
) var a:array[1..20] of integer;
k,i:integer;
Begin
k:=0;
for i:=1 to 20 do
if A[i] mod 2=0 then Inc(k); end;
writeln(k:2:0); end.
䒺 , :
a) const a: array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);
Var i, q: 0.. n; sum: LongInt;
Begin
sum:=0; q:=1;
for i:=1 to n do begin
if a[i]<0 then sum:=sum+a[i];
if a[i]>0 then q:=q+1; end;
writeln( : , sum);
writeln(ʳ 䒺 : , q); readln; End.
) const a: array [1..10] of real = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);
Var i, q: 0.. n; sum: LongInt;
Begin
sum:=1; q:=1;
for i:=1 to n do begin
if a[i]>0 then sum:=sum+a[i];
if a[i]<0 then q:=q+1; end;
writeln( : , sum);
writeln(ʳ 䒺 : , q); readln; End.
) const a: array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);
Var i, q: 0.. n; sum: LongInt;
Begin
sum:=0; q:=0;
for i:=1 to n do begin
if a[i]<0 then sum:=sum+a[i];
if a[i]>0 then q:=q+1; end;
writeln( : , sum);
writeln(ʳ 䒺 : , q); readln; End.
) const a: array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);
Var i, q: 0.. n; sum: LongInt;
Begin
sum:=0; q:=0;
for i:=1 to n do begin
if a[i]>0 then sum:=sum+a[i];
if a[i]<0 then q:=q+1; end;
writeln( : , sum);
writeln(ʳ 䒺 : , q); readln; End.
) const a: array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);
Var i, q: 0.. n; sum: LongInt;
Begin
sum:=1; q:=0;
for i:=2 to n do begin
if a[i]>0 then sum:=sum+a[i];
if a[i]<0 then q:=q+1; end;
writeln( : , sum);
writeln(ʳ 䒺 : , q); readln; End.
:
a) var a:array[1..20] of integer; k,i:integer;
begin
for i:=1 to 20 do
if A[i] odd 2=1 then writeln(A[i]:4:2);
end; end.
) var a:array[1..20] of integer; k,i:real;
begin
for i:=1 to 20 do
if A[i] trunc 2=1 then writeln(A[i]:4:2);
|
|
|
end; end.
) var a:array[1..20] of real;
k,i:integer;
for i:=1 to 20 do
if A[i] frac 2=0 then writeln(A[i]:4:2);
end; end.
) var a:array[1..20] of integer; k,i:integer;
begin
for i:=1 to 20 do
if A[i] div 2=1 then writeln(A[i]:4:2);
end; end.
) var a:array[1..20] of integer; k,i:integer;
begin
for i:=1 to 20 do
if A[i] mod 2=1 then writeln(A[i]:4:2);
end; end.
, , :
a) const a: array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);
Var i, max, q: Integer;
Begin
q:=1; max:=a[1];
for i:=2 to n do
if a[i]>=max then begin max:=a[i]; Inc(q) end;
write(q); readln; End.
) const a: array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);
Var i, max, q: Integer;
Begin
q:=1; max:=a[1];
for i:=2 to n do
if a[i]<=max then begin max:=a[i]; Inc(q) end;
write(q); readln; End.
) const a: array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);
Var i, max, q: Integer;
Begin
q:=0; max:=a[0];
for i:=2 to n do
if a[i]>=max then begin max:=a[i]; Dec(q) end;
write(q); readln; End.
) const a: array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);
Var i, max, q: Integer;
Begin
q:=0; max:=a[1];
for i:=1 to n do
if a[i]>=max then begin max:=a[i]; Dec(q) end;
write(q); readln; End.
) const a: array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);
Var i, max, q: Integer;
Begin
q:=1; max:=a[1];
for i:=2 to n do
if a[i]>=max then begin max:=a[i]; trunc(q) end;
write(q); readln; End.
1,.. n 7 7, :
a) const a: array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);
Var i, q, n: Byte;
Begin
q:=1;
for i:=1 to n do begin
if a[i]>7 then begin a[i]:=7; Inc(q); end;
writeln( : , q); readln; End.
) const a: array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);
Var i, q, n: Byte;
Begin
q:=0;
for i:=1 to n do begin
if a[i]>7 then begin a[i]:=7; Inc(q); end;
writeln( : , q); readln; End.
) const a: array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);
Var i, q, n: Byte;
Begin
q:=1;
for i:=1 to n do begin
if a[i]>7 then begin a[i]:=7; Dec(q) end;
writeln( : , q); readln; End.
)
const a: array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);
Var i, q, n: Byte;
Begin
q:=0;
for i:=2 to n do begin
if a[i]>7 then begin a[i]:=7; Dec(q) end;
writeln( : , q); readln; End.
) const a: array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);
Var i, q, n: Byte;
Begin
q:=0;
for i:=1 to n do begin
if a[i]>7 then begin a[i]:=7; Trunc(q); end;
writeln( : , q); readln; End.
, 1,.. n , :
a) const n=10;
Var a: array [1..n] of Real = (10.4, -2.7, 12.1, 4.6, -8.2, 3.1, 7.2, 2.05, 2.8, 9.3);
i, q: Byte; sum: Real;
Begin q:=0; sum:=0;
for i:=1 to n do sum:=sum+a[i];
sum:=sum/n;
for i:=1 to n do if a[i]<sum then Inc(q);
writeln(q); readln; End.
) const n=10;
Var a: array [1..n] of Integer = (10.4, -2.7, 12.1, 4.6, -8.2, 3.1, 7.2, 2.05, 2.8, 9.3);
i, q: Byte; sum: Real;
Begin q:=0; sum:=0;
for i:=1 to n do sum:=sum+a[i];
sum:=sum/n;
for i:=1 to n do if a[i]>sum then Dec(q);
writeln(q); readln; End.
) const n=10;
Var a: array [1..n] of Real = (10.4, -2.7, 12.1, 4.6, -8.2, 3.1, 7.2, 2.05, 2.8, 9.3);
i, q: Byte; sum: Real;
Begin q:=1; sum:=0;
for i:=1 to n do sum:=sum+a[i];
sum:=sum/n;
for i:=1 to n do if a[i]>sum then Dec(q);
writeln(q); readln; End.
) const n=10;
Var a: array [1..n] of Real = (10.4, -2.7, 12.1, 4.6, -8.2, 3.1, 7.2, 2.05, 2.8, 9.3);
i, q: Byte; sum: Real;
Begin q:=0; sum:=0;
for i:=1 to n do sum:=sum+a[i];
sum:=sum/n;
for i:=1 to n do if a[i]>sum then Inc(q);
writeln(q); readln; End.
) const n=10;
Var a: array [1..n] of Real = (10.4, -2.7, 12.1, 4.6, -8.2, 3.1, 7.2, 2.05, 2.8, 9.3);
i, q: Byte; sum: Real;
Begin q:=0; sum:=0;
for i:=1 to n do sum:=sum*a[i];
sum:=sum/n;
for i:=1 to n do if a[i]<sum then Inc(q);
writeln(q); readln; End.
1,.. n , :
a) const n=10;
Var a: array [1..n] of Real = (10.4, -2.7, 17, 4.6, -8.2, 3.1, 7.2, 2.05, 2.8, 17);
i, q: Double; max: Real;
Begin q:=1; max:=a[1];
for i:=2 to n do
if a[i]>max then
begin max:=a[i]; q:=2; end
else if a[i]=max then Inc(q);
writeln(q); readln; End.
) const n=10;
Var a: array [1..n] of Real = (10.4, -2.7, 17, 4.6, -8.2, 3.1, 7.2, 2.05, 2.8, 17);
i, q: Byte; max: Real;
Begin q:=1; max:=a[1];
for i:=2 to n do
if a[i]>max then
begin max:=a[i]; q:=1; end
else if a[i]<max then Dec(q);
writeln(q); readln; End.
) const n=10;
Var a: array [1..n] of Real = (10.4, -2.7, 17, 4.6, -8.2, 3.1, 7.2, 2.05, 2.8, 17);
i, q: Double; max: Real;
Begin q:=1; max:=a[1];
for i:=2 to n do
if a[i]<max then
begin max:=a[i+1]; q:=1; end
else if a[i]=max then Dec(q);
writeln(q); readln; End.
) const n=10;
Var a: array [1..n] of Real = (10.4, -2.7, 17, 4.6, -8.2, 3.1, 7.2, 2.05, 2.8, 17);
i, q: Byte; max: Real;
Begin q:=1; max:=a[1];
for i:=2 to n do
if a[i]<max then
begin max:=a[i]; q:=1; end
else if a[i]=max then Inc(q);
writeln(q); readln; End.
) const n=10;
Var a: array [1..n] of Real = (10.4, -2.7, 17, 4.6, -8.2, 3.1, 7.2, 2.05, 2.8, 17);
i, q: Byte; max: Real;
Begin q:=1; max:=a[1];
for i:=2 to n do
if a[i]>max then
begin max:=a[i]; q:=1; end
else if a[i]=max then Inc(q);
writeln(q); readln; End.
1,.. n , :
a) const x=13; n=10; a: array [1..n] of Real = (10, 6, 55, -1, 13, 6, 29, -80, 1, -16);
Var i: 1.. n;
Begin i:=1;
while (a[i] >x) and (i<n) do Inc(i);
if a[i]< >x then write ( ! )
else write ( : , i); end.
) const x=13; n=10; a: array [1..n] of Real = (10, 6, 55, -1, 13, 6, 29, -80, 1, -16);
Var i: 1.. n;
Begin i:=1;
while (a[i]< x) and (i<n) do Dec(i);
if a[i]< >x then write ( ! )
else write ( : , i); end.
) const x=13; n=10; a: array [1..n] of Real = (10, 6, 55, -1, 13, 6, 29, -80, 1, -16);
Var i: 1.. n;
Begin i:=1;
while (a[i]>x) and (i<n) do trunc(i);
if a[i]< >x then write ( ! )
else write ( : , i); end.
) const x=13; n=10; a: array [1..n] of Real = (10, 6, 55, -1, 13, 6, 29, -80, 1, -16);
Var i: 1.. n;
Begin i:=1;
while (a[i]<x) and (i<n) do odd(i);
if a[i]< >x then write ( ! )
else write ( : , i); end.
) const x=13; n=10; a: array [1..n] of Real = (10, 6, 55, -1, 13, 6, 29, -80, 1, -16);
Var i: 1.. n;
Begin i:=1;
while (a[i]< >x) and (i<n) do Inc(i);
if a[i]< >x then write ( ! )
else write ( : , i); end.
) ":="
)"="
