X_Informatica (in Limba Rusa)
of 188
description
X_Informatica (in Limba Rusa)
Transcript of X_Informatica (in Limba Rusa)
-
!
"#$ % '&$(&)*()&+,&
%&$() ) -%&$()) !"
#$%"&
"#$ % '&$(&)*()&+,&./$0 1& ऩ&6.7 %8)&3()(92$ )!:2,;!:2 1&)!%&'9" 9
;-?=@
!+; !"#$"%5-#AB%;5#$6% 9&CA4A0$##56%5715%46%5645D3)E&CA4A0$##56$5%651%5)F
GGG
($ %$&) /% /$ & &=&&%="#$ % &&'&$(&)*()&+,&
-
!"#$% & & '
( !"# & & )
* !"#
$% & & +
),! & & (*
!"#$% & & (-
-./" & & *
'./"!0"! & & *)
+ 0"1/" & & *+
& & ))
!"#(2013 & & )-
((20013 & & )4
(*5!6"" & &
()713!"0"#8/ & & -
(20069/ & & -
(-:0!13 & & -(
& & --
$ !%&%''()&*;" & & -+
*(:06/"0
-
)*5!6""/6"
6"
& ('
-!!"!!
-
!"#$%"$#&&'
(!)
(
*
'
'(
+
( +
,-./-012
(
'+'
''
(
+'
'(
&( &
'&
'(
'
2'+
22&&(
3 (4
&'&
+&)
'(5
'' ''
&&&
(
(!&
&&&
(*&&
!"#$%"$#&+
) '(
3
45%46788
797:;:&(% (
type Vector = array [1..5] of real;var x : Vector;
type Zi = (L, Ma, Mi, J, V, S, D);Venit = array [Zi] of real;
var v : Venit;z : Zi;
type Ora = 0..23;Grade = -40..40;Temperatura = array [Ora] of Grade;
var t : Temperatura;h : Ora;
!
x[1] x[4]G
v[L] v[Ma] v[J]G
t[0] t[15] t[23]G
v[z] t[h]
-
/ '
& & ( . &
) x Vector(?x[1] x[2] H x[5](
Program P77;{
}type Vector = array [1..5] of real;var x : Vector; i : integer; s : real;begin writeln(); for i:=1 to 5 do readln(x [i]); writeln(); for i:=1 to 5 do writeln(x [i]); s:=0; for i:=1 to 5 do s:=s+x [i]; writeln(=, s); readln;end.
*&2&
array(
"&P77 ;::+
VectorVenit Temperatura
-
Program P78;{ }const nmax = 100;type Vector = array [1..nmax] of real;var x : Vector; n : 1..nmax; i : integer; s : real;begin write(n=); readln(n); writeln(, n, :); for i:=1 to n do readln(x [i]); writeln(); for i:=1 to n do writeln(x [i]); s:=0; for i:=1 to n do s:=s+x[i]; writeln(=, s); readln;end.
*
'+
type = array [
] of
;
&
))& &
@
$&)
)&@
&$&)
)&@
!$ 2
))&@
$2))&(
*+
type Vector = array [1..5] of real;Matrice = array [1..3, 1..4] of real;Linie = array [1..4] of real;Tabel = array [1..3] of Linie;
var V : Vector;M : Matrice;L : Linie;T : Tabel;x : real;i : integer;
/' F
T[3]:=T[1]G f i:=xG
M:=TG L[3]:=iG
L:=VG i:=M[1,2]G
L[3]:=xG x:=V[4]G
x:=iG L[3]:=V[4]G
-
T[1]:=4G M[1,3]:=L[2]G
T[2]:=VG x:=T[1][2]G
L:=T[3]G x:=M[1]G
T[1,2]:=M[1,2]G L:=M[1]G
T[1,2]:=M[1,2]G V[5]:=M[3,4]G
M[1]:=4G L:=M[3,4]
!'2&&
G2&=7::>(
&
array '
packed array [1..n] of char4 &
(
+
Program P80;%&&'&
()
type Nume = packed array [1..8] of char;Prenume = packed array [1..5] of char;
var N : Nume;P : Prenume;
begin N:=Munteanu; P:=Mihai; writeln(N); writeln(P); readln;end.
% )+
MunteanuMihai
#
&P80+
N:= OlaruGP:= Ion
-
&
&n
+
N:= Olaru GP:= Ion
? v packed array [1..n] of char&
+
read(v[1]); read(v[2]); ...; read(v[n]).5
)
&
write(v)writeln(v)(5packed array [1..n]
of charn (((!'
&(G&
(
H ,-.
/-0C2 (
IJKLMNOPQOR
&
'+
type string
type string[!]&()* <
&
(,()*
T+U(#
vstring
'length(v)integer("string(
Program P81;{ &&*&+(type Nume = string [8]; Prenume = string [5]; NumePrenume = string;var N : Nume; P : Prenume; NP : NumePrenume; L : integer;
-
beginN:=Munteanu; L:=length(N); writeln(N, L:4);P:=Mihai; L:=length(P); writeln(P, L:4);NP:=N+ +P; L:=length(NP); writeln(NP, L:4);N:=Olaru; L:=length(N); writeln(N, L:4);P:=Ion; L:=length(P); writeln(P, L:4);NP:=N+ +P; L:=length(NP); writeln(NP, L:4);readln;
end.
%)+
Munteanu 8Mihai 5Munteanu Mihai 14Olaru 5Ion 3Olaru Ion 9
5 ' &
NPNP(/'2,
< >( . char(5packed array [1..n] of charstring($string& (
"'
AC < BA
true'
AAAAC < AAAAB
false(,
(
"P=MihaiP[1]=MP[2]=iP[3]=h((,
P[1]:=P;P[2]:=e;P[3]:=t;P[4]:=r;P[5]:=u
PPetru(.&
) (
%&2(
-
Program P82;,-&&&&&
var S : string; i, j : integer;begin writeln(); repeat readln(S); i:=0; for j:=1 to length(S) do if S[j]= then i:=i+1; writeln(, i); until S=;end.
!" #$%
/F
/'F
,
&+
Program P83;{ . }var S : packed array [1..5] of char;begin S:=12345; writeln(S); S:=Sfat; writeln(S);end.
"2&+
$A@%$A*@$B@&$&MA@!$&MA&TA@$&TO(
5' 2+
)$ B < A@ f$ BB < B B@
$ BB > AA@ +$ A = a@
,$ BAAAA < AAAAA@ -$ Aa > aA@
.$ CCCCD > CCCCA@ /$ 123 = 321@
$ A A = AA@ 0$ 12345 > 12345(
-
*&
("2&)
&+
(
#12
type
-
type Triunghi = recordA : Punct; { & }B : Punct; { & }C : Punct; { & }
end;var T1, T2, T3 : Triunghi;
.2 4
$ 12
2'(,
("
2'+
E1:=E2;T2:=T3;P2:=P1
/ ) record
(
E1.Nume E1.Prenume E1.NotaMedieG
E2.Nume E2.Prenume E2.NotaMedieG
P1.x P1.y P2.x P2.yG
T1.A T1.B T1.C T2.A T2.B T2.CG
$ T1.A.x T1.A.y T2.B.x T2.B.y
ElevPunctTriunghi
-
5)E1(Nume string@)P1.x)+$6'@
%$'7&@
$&)@
&$6 7 )@
!$
&2&@
>
&2&@
8$&&'@
1$'29@
$'@
$' &@
$'&=&>(
*=A:> (//*
/:
/(%/'0
(
"2&)
(
,&W
&)+$&&@
%$2&&@
$2&&@
&$'
& (
-
($ ) with(c)/) 12
(
"
type Angajat = record NumePrenume : string; ZileLucrate : 1..31; PlataPeZi : real; PlataPeLuna : real; end;var A : Angajat;
) A A.NumePrenumeA.ZileLucrateA.PlataPeZiA.PlataPeLuna(
#A 12 )&(G
with .&+
;withwith do ;
.&
-
type Punct = record x : real; y : real; end; Segment = record A : Punct; B : Punct; end;var P : Punct; S : Segment; x : integer;
2x
x
integer P.xP(
x:=1
x
xinteger(
with P do x:=1
xP.x PPunct(#SSegmentS.x
with S do x:=1
xxinteger(5
with
do ;
&
)+$'&
@
-
%$ &
'@
$'&
@
&> &
'(
*
#8(set)2
+
8[packed] set of ?set
&($ 8
7 (?&+7SV(,-./-0C)&
[]&&(
?[](
type Indice = 1..10; Zi = (L, Ma, Mi, J, V, S, D); MultimeIndicii = set of Indice; ZileDePrezenta = set of Zi;var MI : MultimeIndicii; ZP : ZileDePrezenta;
, Indice n=;: +1, 2, 3, 4, 5, 6, 7, 8,9, 10(#MultimeIndicii 7;:;:78 +
[] [1] [2] [1, 2] [1, 3] [1, 2, 3, 4, 5, 6, 7, 8, 9, 10]
#MI) +
MI:= [1, 3], Zi=9 +L, Ma, Mi, J, V, S, D(#
ZileDePrezenta79=;7X +
[] [L] [Ma] [Mi] [L, Ma] [L, Mi] [L, Ma, Mi, J, V, S, D]
,ZP) +
ZP:= [L, Ma, Mi, V]
-
?8&9.(.&& 'D?
8E @(
/)
(G
&+
A8..A8#
?
(
[]
[1, 2, 3, 8]
[1..4, 8..10]
[i-k..i+k]
$ [L, Ma, V..D]
/8
'+
+B@
*@
8'2+
=@
@
=@in
boolean(.&)' +, *,
MultimeIndicii(
-
Program P86;{ /
"51$!678$$$ }type Indice = 1..10; MultimeIndicii = set of Indice;var A, B, C : MultimeIndicii; i : integer;begin A:= [1..5, 8]; (9 B:= !"(9 ! C:= []; :&9&
C:=A+B; (9 ! writeln(!"); for i:=1 to 10 do if i in C then write(i:3); writeln;
C:=A*B; (9 writeln(#); for i:=1 to 10 do if i in C then write(i:3); writeln;
C:=A-B; (9 writeln($%&); for i:=1 to 10 do if i in C then write(i:3); writeln; readln;end.
)
)
&(*
)='2in>(Y&)8
2&NOPQOR(
"+
if (c=A) or (c=E) or (c=I) or (c=O) or (c=U) then ...+
if c in [A,E,I,O,U] then ...
*&8
2 & & <
(*)&&BCD+
>27A8(((@
$22/@
-
$@
4$2(/@
5$'2&2(
Program P87;{ ;' }const n = 50;type MultimeDeNumere = set of 1..n;var Sita, NumerePrime : MultimeDeNumere; i, m : integer;begin {1} Sita:= [2..n]; NumerePrime:=[]; i:=2; repeat {2} while not (i in Sita) do i:=succ(i); {3} NumerePrime:=NumerePrime+[i]; write(i:4); m:=i; {4} while m
-
*+
type Culoare = (Galben, Verde, Albastru, Violet); Nuanta = set of Culoare;var NT : Nuanta;
/NTF "2&
&D8E @(
%MultimeIndicii )&(,)
+
[] & [4..3]
[1..10] [1..3, 7..6, 9]
[1..3, 9..10] [4-2..7+1]
[1+1, 4..7, 9] [7-5..4+4]
[3, 7..9] [6, 9, 1..2]
"2&)
+{;7A8}(
"2&)
+{EAEEBEECEEDE}( *
+F'1'F1"'G2"1'?
2" 1("2&)
(
*("2&)
&(
"2&
)+
$ @
%>@
$
(
"2&
=
'>(
&&
8&7SV(5&< 2("2&
X(((;::::(
H1 %2 & G
)&(
-
+,-.
,!
(
%1(H
' '+IJK
=I.LfK/7(!'
*+!
' (#
"&2 (4
'
(
"&&&&(
-
IJKLM NOPQOR f 2 '
assign(f, );
&O(
'
"&+
assign( f ) < f2 O@reset( f)rewrite( f)< f_@read( f )write( f ) rewrite(FE); { &'=0(* }
write(); readln(n);
for i:=1 to n do begin writeln(, i);
-&
?&
write(: ); readln(E.Nume);write(: ); readln(E.Prenume);write((: ); readln(E.NotaMedie);
@&*-
?&'=0
write(FE, E); end; close(FE); @&'=0 readln;end.
-
*+! .
'reset(f) H&)
'+
read(f% )'5
read(f%
)
)+
read(f); read (f
); ..., read (f
)
/'
'eof(f)true &)(
Program P90;-&'4012
type Elev = record Nume : string; Prenume : string; NotaMedie : real; end; FisierElevi = file of Elev;var FE : FisierElevi; E : Elev; str : string;begin write('); readln(str);
assign(FE, str); &*&=0> reset(FE); { &'=0(- }
while not eof(FE) do begin
-&0*'=0
read(FE, E);&&(04
writeln(E.Nume, , E.Prenume, :,E.NotaMedie : 5:2);
end; close(FE); *&'=0 readln;end.
5)
&(.
-
&
)(5)&
2& '( . ) & &
&2IJK(
!" #$%
!) F
) F
*+
type Data = record Ziua : 1..31; Luna : 1..12; Anul : integer;
end; Persoana = record NumePrenume : string; DataNasterii : Data; end; FisierPersoane = file of Persoana;
"2&'
( . + FILE1.PRS FILE2.PRSFILE3.PRS79;:'(
"2& &
&)+
$' @
%$'2&@
$'&6 7 )@
&$2@
!$2(
"2&)
file of real( file of char("2
&)&
(
,
&+
Program P91;{ . }type FisierNumere = file of integer;var FN : FisierNumere; i : integer; r : real; s : string;begin Writeln'
-
readln(s); assign(FN, s); rewrite(FN); i:=1; write(FN, i); i:=10; write(FN, i); r:=20; write(FN, r); close(FN);end.
3$4!)0$5-.
! 2
'(& )
"+-!(# 2
=&&(>(*
_=)((>
*!
(
*&
,-./-0C'
(#
= T>( * (,'2DIV?3IWE ' 2 DX3WU+YEDIV3IWE(
Program P93;*(&'=6A0BCDC
var F : text; c : char;begin assign(F, FILE.TXT); &*&'==6A0BCDC
-
rewrite(F); { &=(* } while not eof do { eof(Input) } begin while not eoln do { eoln(Input) } begin read(c); -&*67E5 write(F, c); *&&= end; writeln(F); *&0FA&= readln; ((GHG*67E5 end; close(F); *&$end.
.&) FILE.TXT(
Program P94;I&'=6A0BCDC
var F : text; c : char;begin assign(F, FILE.TXT); &*&==6A0BCDC reset(F); { &=(- } while not eof(F) do begin while not eoln(F) do begin read(F, c); -&*= write(c); *&&F5E5 end; readln(F); ((GHG= writeln; *&0FA&F5E5 end; close(F); *&$ readln;end.
,=
&
integerrealbool-ean(,&
2 &(,)
'_2(
* ' read(f, ) +integerrealchar(, 9
(
-
? ' write(f, ) (?integerrealchar(,&(
, _
'read_write __(
& P95 )' ' ,
IN.TXT(, && OUT.TXT),O&(2
OUT.TXT)(
Program P95;.'&6JBCDCFKCBCDC
var F, G : text; a, b, c, p, s : real; str : string;begin assign(F, IN.TXT); &*&=6JBCDC rewrite(F); &=(*
writeln) while not eof do begin readln(a, b, c); -&*+,+-&
writeln(F, a:8:2, b:8:2, c:8:2); %&$ end; close(F); *&$
reset(F); &=(- assign(G, OUT.TXT&*&.FKCBCDC rewrite(G); &.(*
while not eof(F) do begin readln(F, a, b, c); -LML*= write(G, a:8:2, b:8:2, c:8:2); *LML&N p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); '&()*****&EL>&N
end;
close(F); *&$ close(G); *&(
-
reset(G); { &N(- } while not eof(G) do begin readln(G, str); -&>*N writeln(str); &&(>4
end; close(G); *&( readln;end.
*
1 1 1 3 4 6
&95)+
1.00 1.00 1.00 1.50 0.43303.00 4.00 6.00 6.50 5.3327
!" #$%
' file of charF H)IJUIJKF
''readreadlnF-'writewritelnF
?
&+
Program P96;&*&'=J&&&(
type FisierNumere = file of integer;var FN : FisierNumere; i : integer;begin assign(FN, CON); rewrite(FN); i:=1; write(FN, i); i:=2; write(FN, i); i:=3; write(FN, i); close(FN); readln;end.
5B)(
"2&)&?
& (
-
"2 & ) &
(
&" (
'
("2&)
' (
&" (
ADMISRESPINS("2&+
$& )@
%$
@
$" &
& @
&$)&
2 ;7A((
/&
+
< =integer>@@
@
@
? @
A B
C D
E F
G H
I J
K L
M N
O P
Q R
S T
U V
W X
Y Z
[ \
] ^
_ I0:
D L#$/)L=()C
!*@)
1;;;;;;;;;;;;;(;;;;;(;!!!;;(((((2
/$/$!
9;(;;;;;;(;;;;(;(;;;(;!!!((((((; /
#!0(((((((
C:?:D:102!
-
4 #
/!,MNOPN
OMQRR//-
!,
OMQRRMNST!
4 #
/
&!%
#
*J04J>U &
/12$ord!,-ord(S)=83; ord(T)=84; ord(A)=65; ord(R)=82
!!* $ chr#
/# &!.
chr(83)=S; chr(84)=T; chr(65)=A; chr(82)=R.OMQRR/
#$
/
# #!*&
/ # $ OMQRR
#-)*+,,!V3 / C
#$//)C=)=H
!0//0E!
!"'3/
;()L' OMQRR! !# '/
()C)==!D
#/
$
#
!9 /0E
# #FG@!!!# #'(
-
$
` ` `
\
^
I0:
` ` `
a
b
c
d
e
f
g
h
i
j
k
l
K(-
OMQRR
K
!"#
0#''#/=
#$8
/ $
!
B7T/ $-
()@AH(
-
9 F-
.4 0011 1111 0100 J4 0010 0001 1011
Q4 1110 0010 1101 :4 0011 1100 1111
O4 1111 0000 0100 f4 1111 1101 0000
BOMQRR' -
.4 A+B J4 NEXT I
Q4 FOR I=1 TO N :4 PAUSE
O4 PRINT A$ f4 PROGRAM
9 OMQRR-
.4 1000010 1100101 1100111 1101001 1101110:
Q4 1010011 1110100 1101111 1110000:
O4 1000101 1101110 1100100:
J4 1101001 0111010 0111101 0110001 0111011!
V#
&/
-
.4 $012!!!9:/4ABC!!!Z:4abc!!!z:64#$:
%4$
;?[]{}/\!
*# +,-.
+$# /
'# #'#
&{(
)!!!
}#'#'!
*#$
#!9
!!.
/1
'
!!2
'/# ##[WXY
WZ[]!
+$/
/# #'#&
#/ !+
/ '/# #
##/ ./
0!
4 / !
0$ =1D2!0$/$
-
#$%&
%&%
'(
$ #
$3D4D(D
)!!!D
=1E2!\'
/#12#{1D(21D
)2!!!1D
=2}
# !
4D(D
)!!!D
= /
3
ti = ti-1 + t.%D# !4#
#$D #3D4# !
-
,# '
D=(A#D==(;=&!" !" !
"
1D(2
1D)2 !!!1D
=2#/!+#
[WXY
WZ[]'# !9 $
$'## 1DK2
K=()!!!=####(
)!!!
1E2!
B# (
)!!!
#/
$ # #
# $1!
s1 = smin, s2 = smin + s, ..., si = si1 + s, ..., sn = smax.% -/!4#
##
$##3/!!
, $WXY
=@AFWZ[
=A)F=;(F!%
WXY
=H;FWZ[
=+H;F=(F!9
WXY=
;WZ[
=(=;'UA=='UA4=
/ /3 1EQO2-
( !
*(
)!!!
$-
$-
, $
4$# =)=HD==(;=(==A='
-
5# #3/ #
/#$D3 '3!0#$'
!
+$ '
/ ! 9 & (
) !!!
/ '/!,
# $1-H@A/2#
/L#$!K#/
1/02
/!%' # 7T
!
?#
# /
.230! $ #
/
//.320!+##
$
-$
' 7#
$ $3 !!
!"#
%#$'
8
*!?
# /!
7 $ #$!4
#$8
7 $ !4
3 8
4 /#$3
$## 8
+12'#
(;;');'!*3# 3('!K
#'(;@!$
#=!
. # '
!*$' 1(''
(21(''(;F2!
0$'# #@;
'# C;(;;;F8
9 ### '
# ;(;;'@!?##
'/ ;('@!9
-
# '/ A;;;;!0
$ '@8
9 #$$#
8
,3
#
&/!
,3
$
# !
/),".
4# 7
# //
!9 #'
/#
&-#!!
9 # $#'
#!V#'#'
/1L.D:L
]^2!V /
//
'1V2!*
#/#3//
# #'!
, #/$#/ #3
)A@;UO'1=LH
-
+ " ,- !"
!% !
% 12 #' ' #
51
/!D'#12
/!4##3//
# #'!
0$#'-
=I=
M /#/
#1V2!
*$
'#' #
$$#' 3
4$6#/
)A 12)= 12
!0$'
/( 3
ff&-$!
,=I=
M=H)==@)f=)=!
'-
%
_'/(='-
. # % # "
&!"!""$
",-"
+#' #/ /
$#!+#'
/$!D
' $#
# !
_#' #/ #'
/$#
-& $
!!
!"#
,#$ #'!
4#8+#'
8
-
4$$' #
'8
4' $ $ #' 84 #
$$#'8
$$##(;(;'/')A&AU'!4' '
/-!
0$'$ #););'
# /'H;&AUO'8\'
)=H /!
V#(;)A(;)A!\'HA /!0$
' '/@8
_#'' '
!0 '#
&$#' / @#$8=
#$8C#$8
01$$
\7#
$# !V#/
$!
7#/ $
!+$ #
'$//
# ! * $ #
/#''!9
$ !0 #
' !%/
$#/ -
#:
:
'/!!
*$ /
!%
#-
#1#2' :
& ':
&!!
*$#
# $
'# !
/ # !% ! # $
" * 0 *# !" " !$
" ,!"- # " !
-
, $
#/ &!J&
'# 1W2!%$
!
%&/ $
# & ' / $
!I
X! % ' # '
# $ ; $ (!9
$ ; ( ' #
$'!
),-.$
%'&%
/.0'0
-
1* " # % $
! !
1* " !# !
! ! " *
,WX
! /
/!
>/ #
/3/#$/$
!0/#/ '
&&
!!*#
#3 !0
#'/
'#
!* #-
# !
&!"#!!!!*
* "" * *#
" "
.##/$/#
$!9 Y$
$!
&!" " * * !* $
!" ! " " "
)1'.
-
.#//$/
# $!
* $
%#-
Z
:
'&%[T& # /
:
ZAT%
&!!# / :
%'&%[T:
% Z !
# $'
3$!
`/$
$5 ' &''!* ##
$ $!,
@A2/U:
(7/U: (8/U!
!"#
% $8
/$-
4:
/4#:
4:
64:
%4:
4$:
4!
2
-
,#$/-
4:
/4$ :
4#:
64$ :
%4!
3$#
/!
7 $ $ $!
4# 89 8
,Y /
(;;((;(!%OMQRR1/0B2&
S!
,//
-
.4 >: :4
-
4C42G/GHI.'-')
5C42G/GHI.'-!'(')
6:+.87870(57#$%J)1+08K''()
7:$
& & '& -.&
& '0'& (& .&
& .& )& -&
*& & +& '.)
81'5LM%LM/0(78M)C+.'!5)+'0-F
8:+'!,B5N87%O+-B57.!'/B8K)
&82++'..$
P" '00& 8" &
Q" +&
" .& R" '+&
5" & S" &
L" & T" &
U" )
*8V++'' ." ."$
P" .& 8" 4&
Q" '&
" '& R" &
5" '& S" .+&
L" 4& T" &&
U" .)
W00.)
-
!
"#
$%
&&"'(
#)
'(('*+,
&&"*
#)
*('-)!
#,
&&".
#)
.('*,
&&"/0
!/%('*12,
&&"'3
0'3%('*+45454
5454545
0#
-
#)!
%
6"#450#
0#7.
#%##.(((#&((.
!"#
$0)!)#+')%
6"#
)!#%
$))!
45))
7
-
8)!
)$"
))
)#)
90#
))
$0)!%
&,
)!#)%
))
),
&0#0
0#
:###
;0)0
#)!$)
0
!" !#$
9#=)
-
!" !#$
9)!#
)) 2'*>
%
-
%&'!4'('''(('('5*=4*.'>3*>5
'(#))4.*>5
'(
42'*>5'(=4*.'>3*>5
'(
?*''.
%
-''('((''%''='(((''('%&'!4'(((''(5
*=42(5
'(#))4*''5
'(%4.5
'(=
= 42(5'(+4'5
'(
6)0)#
!))!0
!" !#$
9/#
$).*>>'(*?*(?/?(+33>>.>'3
#
))
?/'*'3*?.*3?#
-
%&9&(!*#)28
))#0#+&0!0
$"
#))!!
)!"!#$0
#&'*($+!
9#
!)!
-"##
#!%!
!4&,-.-'5$"
%##(0
',#!#4
)5
@(/+>*&>*/#
!"#$"#
#)
0%
-
6)!)
(%((('(($#)
))0
#)
&"#!$0#
0C
#0#)0
'((':
#&
7(0+>*&>*/#
!"#$"#%
E0))
0
(%((('''
! " 0
0 C
##
=#!4#(5'
@(1+>*&>*@#)=
#)"#)
#[&*&'*&'&']
!" !#$
9)
-
!"#$"#
$/#%
f
$/#%
f
7=
))
"
=/'3.* 9(*
/( '> 3?
!
"!
'(&.2'(
./
'(&.(2'(
.(/
'(&?+.*
'(?+.*
#!
$!
%
32
'>'3
'+
&!%
:
@
I=
J&"":
=
&"#
""0
#)!)
=/%
)##"%
&'*2(,&A'*2A(
/"'('9-((
#)=
-
$))#
'"0
))#
#!:
)
!" !#$
9#!#
&L E&) E ,
F10 F.0 ! F2
=?&G)E)+%()84) 1' ((2D8H(2
0 0 ! 2
'@&D8(8
-'/%48
-(/) E'' (( .2
'=&G)E)+%((
+&(( F#'H 4
$2M
)F#)*F1(2D48H(2
0 0 ! 2
''&$#)*" +&((+ F#)'H $2M
)F#)*F1(2
'%&D8(8
-'/%48
-(/) % +&(4
(+ F#'H $2M
)F#)$*F1(2
-
!"
#$%!$&'%%
()*'+,-.!'$
%#!%%
%'%%/
0 10%
%
20%%%$%!
$3{4'+}'$3% %1{'5'}%!%2!'%
%$!! $
'
4+'%!%
!
%
+'
6'!
'34+
%!7%1(%'%1*8
51(%!'%1*8
!1('%1*
9%%1%!1 1'
!"
!#
:%!1%1'1
!1
-
/'%%1
%
!%
;%$%
4+'1
%1!%$!%1!
11!%$%%!%!
$!$144'4+'+4++
%
H=.1
5 "#GH& !
I
+,- !+.-
F
D=."1.
"4.
2.
2
@=1"11"41212
.21
2"23
.21
22$&H
21
21'
-
H21
."1.
"4.
2.
2
+1"11"41212
9 ! !" "#"
H21+.
2+1
2 "
. $!&
EEEE
*+
3 EE1 *.
2+1
2+ EE
4
H21 *.
2+1
2+
3H2(2+1 *-
!? $ EE1EE
4
5 D@ #&" !
5 $ !&
" *+
. EJI"# (#
$!& &
#3!"#
EJ"1 (#
& "!
-
; $ &"
(H!I
9"! &" !&!
! ,
& !&
&! &
# &&"#
!!&!
$! $
, "! "#!
44""17 44174@412:
6 17!
!&5& $
&& &
"
/ ! &
$!& !
'"&
+,- !+.-
-
! "#$
E$ > >
"!
5&! 9!$
$&&!'.212H21G2H2
,(3/5;/-J !
.2 12 H21
( G2
( H2$!&
6!?& 6!&
A/ (
5& ()--*$ 17
!A/@4!A
' !
5"# .
1405 #&"4!&.1 #&"
0 (!$(5&!
!
(& ! !
&&42 02!$((
" &( .2 12 02L1#
-
,- !
1 $ !
(#"!
""(
(&"$
&
." ! !
,-M &
!D*N=2+@*N=1+% &" &&"
&
,"
-
+RCQ?S??B*&+SPTJS??B*&
+5&!(!
"# !'
22PQRCQ?U
21PSSRCQ?U
12RCQ?S??BU
11SPTJS??B
,
'T?DB=*+VDV?T*! +W?EW*$
+RPDB*$ +5&!
( 5"#
$ #&""# !'
22T?DB=U
21VDV?TU
12W?EWU
11RPDB
; &"$&(CSDCSD
CSD5&!(
"#$(
E! &" ""#'
2222>
2221 >
2212 >
2211>
2122>
2121!D>
2112!@>
2111$A>
1222$B
5&!(!
"#
/ ! &""
# ! '
X 222>
221>
-
!X 212>
M 211>
122
5&!(
&"
5&! &
.
-
Y=19$Y=2=1!=1$Y=25&T=E=2 "!
E!!"Y=1=21"Y=2=12%Y"$$$
5 Y
F T = 2 E= 1 3$ 2&Y=2=1% E=1=2"&!"&!Y=15&1*Y=1=2+.
E 12%E!
1$
/ $&
1*Y=1=2+E=2T=12*Y=2=1+.T1"2%T!
2$!
% !T=1E=1 Y = 2 = 2 0 Y = = 2 " "
$5&TE
!T=E=1"/&F$ ! >Z
!
!
#
3&[\TE
"#TE
-
!& &
"#
. " #&"
& &
&'#
%
6!! #&"!A*
59 3P+!&
, RS TE#*+
(""#
&A 1
!+-!+-
! "#$
K " !& A
% A
;! *#()A
!A
6!?$ !TE#3 !
T=E=1 $!& A
K "& A
6!? ! TE# ;
-#A
,+ (
()
5 "#$ '
*=1=1+>
-
*=1=2+>!*=2=1+
6!?! 3
!=2 =2#A
-+
3&& $
;
1+- !+-
-
/ &
'('(' (' (
'!
&
2
3& 2121
&"A H1H4H@6
B4/ ! $"#B'4
)&
&(5"
"# '
! *
+>
*
+
%!# "
! "# $
$ &
,&
&(1
-
#5
" &
24"1"
,,-"&$&F!
&@!
&
2
3!
5 "#!
F""&$
+1$ &J$&( $
&(1 &($
&*,-M+
! "#$
% A6 &A
% _ ,- >/ $
1221; $ A
&A &A
% $"#'
./ 22222> f/ 22221>
1/ 12222> 8/ 12221>
/ 21222> :/ 21212>
4/ 22122> 0/ 21122>
6/ 22212> 2/ 22112
; $ A
& &A
-
,(3/5;/-J !
"!
A; "
A/A
3 B! "#
'
./ 2222> f/ 1212>
1/ 2212> 8/ 1122>
/ 2122> :/ 1111>
4/ 1222> 0/ 2121>
6/ 1221> 2/ 2112
; R
&A/S &A
-
1$&! #() &2
5& !&
& &&3 $!&
"#2
#!+-
+-$*
4
+-! +-
-
! "#$
$A,
6!?! &6
&& &A
0 #()#
&
*#()6!?!!& ,
-
$66*=!>#!1
0
/ 029:9%; 6!=!
-
7 !5 + $(- 1
?** 1+! -+!-&
+@-
(
+A- !
(
+B- !)
5(
+C- (
+E- *6
!(
+F- )(
+H-
(
+I- 6
(
+M-
%4 *,LL,,L,,:!1* ) >
)4*,,L,,,L,:!1* ) >
* 029:9%; 6!K* *6
*$
2=1,LLL,,L,:! G1 >
/#!=1,L,L,,,L:1! 1 >
2 029:9%; 6! 1& 0 *
6*$
+,- (
+.- (
+3-
(
+D-
(
+- (
+G- !
-
G
839:39;?39;
/@!'"+"$("+A "
T& &"+
% &"$"
#!'
! $
"#
&& >
!
>
!!
&"(>
&&
"#! &
/ */-E+&
*UEE+!"&!!"
3 & &"'!
&"&"!!!
-&"&" &" !&(
2"* &
&"+ & "
J $(
! &"
N 5
-
!"#
$ %
$!!
& $#$
!
'($ %
$%
#
%$
!
)$%
!*$ $+
%% #
$!$!,%$%
#
! - %
!
.%$$$#
/ 0$% 0$
% !!1
$
$$$
%%$
$$%$#
$%#
%%%!!
.!
"
2*
2
-
. !
.!
3$ !
* 2*
$2
. #%!*#
%0$
2
*$$
#
$24 21$ +,2
"$2
' $$$ #
%$
%$
%
!5$!
!"
1$$%$
%$%$$
!* !.
$%
!
"$
$
$%
$$$+,!6$$
$$%$$%#
!3$$%
!
-
3 ! 6$%
$%+$$#
$($ ,/
7809
7:09
7;09
7%$
7;:77;77877
$$:77;77!3#
$ 877!
?%$%%
$$
!@
$#
$$
$$
!-%$$%$
$%$%#
!3 #
$#
$
%$( !
"$+,$$!'
$$
$!"($$ %$
$
$!
"%%
#
% $ $ $%
$$$$+,!1$%$
$!.%$
78877887
%$877887
877!?$%
$%$ 877%$!
@%$$+
,$%
$$!
-
A$$+,%#
$ % !"
$%
!1$%$#
$$$!.%$$$
78877
% 877%
$!B
%$
$!
*$$$($
!?$%
#
$$$%$$
%%
$#$$!
?%
$#
!A$ $!
6$%
!
?$$$!
? $$$!
*$$$$$$#
$2
?%$
$$$/
78:77:78:7:9 7;8778=7:=79
7
-
*$
$
78877%
$
$ 8778:%
0:E2
.$$%$
$$!
*$$/
0$$$
%#
$$
%$
#
$9
0$$$$
%#
$F 9
0$$%#
$
$9
0$$#$%
$ !
!$
%#
!.$$
$
%
/
!"#$"%"!""
4$%%&'$$
$
$$$ #
!"$$$
$
/"$ $
%
""$ %$"$+#
,$!!.%#
$$$
$($%
$$$%$#
%$!
!$
%$$
$ !"$$$
$$$#
! "
!.$( 0
%$#
$
%$
/0
!
!$$
#
$!"$ #
$0$%#
! 5 $ $
$!
-
*$$$
%
$$
#
!)$$$
$
!
*$$$$$%#
$$$
$ !
$!@ %$$#
$%$$ $!*%
$($$
+$$,%$
%$$#
!"($$#
%$$
$
!
*$2@ #
$$ !
6$$$$
!'
$$$
!
"$$$
2?
$$$
!
*$$$2*
($2
@$$#$!*$
($2
' $$
$
% $
$ !
*$$
#
$$ $%#
!
#$
$
%&% '"
'
$$#
$ $ $% % 0
%$$%
!
3
$
( !'$#
$%#
!"$
$ $
-
%$
!5%$ %%%$
!
.%$$$$
)*!
78 G
7: G
7; 1
7< "
7= & $
7E @ $
7C 1
>$
$#
%
!.$
+$,+,$!
.% 8D=% +#
,9 :8;$-./ :77%
$ + + -% 0! . $+-/
"$$
($
$%
+$,
$!
(
"(
$
$"
H
$
!-%%$
$+$,
!6%
(%%
!@#
!
+1234356%75089%:5095;%9!$!,%
$
$#
!?$%%
(!
-
"$
2
*$$$$2
"$%#
2
6, 877%.0 878%
00 87:!6$+!*,$#
/
, 78877 , 78877 , 78878
7
-
$
$%$#
%$ $%(
$$!
?%(
#
% %
%
$$%
!.%#
$$
(
%$0
$!3$#
!.=$$
$$ !
!"" #"
>#
$ #
$%#
$!1$%#
#
% % $%
$!.%#
$#
%%$%$!
) $%
%#
$
% $ $
$!-
!1$%#
$#
%!%#
%
!
"!
#
%
% % #
$#$ !!#
$
-
$
# %$$#
$#$%%$%
%
%%#
$!
?%
#
$ >? @? ?$2
*
$
2
)$%%$
$$ /
0$$9
0 9
0$ 9
0$9
0 !
"$ 2>#
2
)
2*%2
$#& &&
6$
+,%$$!K#
% %
$! "
#%
+
,!
G #
%
D!
L$%
%%
+7%7=,
%!
"
#
$$!M
$78%
!)%$ %$
% %$
$
$ !.%#
%
$
-
!.$$
$878878$ !
3$$%$$$
$ !B$%#
% !$!
)
"
" $ *E!
* #
$%$$
$!
"%$
+D,%$$#
87#;!5$
% $$78!
"$
%$
F
#
$!@ +F,
% ##
!
?#
!K$$$F#
!?$%
$!"$(
!
* !
"
$ %
-
"$ $#
/%
$!"%
%
$$!
$ #
%$%$$87D !
)#$
$!
%!!#
!.
$%
#
!'$
!*$ $ !'
'
(""
-
)"!
$$ $
$+G,!
L$$%#
$ $!"$
$
!
$ $%$#
$
$+G,%%$$%#
$$!.#
%$
$#
$87#;$!
?%$
$0$ $
$!@
$$87#
!. . "7"+
&""+
7."%+
""+
!. . ""+
!7&""
3! %
!3
"".%" +
"".7%"
+
".%"
+
" #+
"!7%"
.
-= 3!">
N%3"*!
!
N.3%!.7%%
O% 3
O..7%%
,# P %%
-!3Q"%DE78
D@A"(9187G%
"%#"
-N. !
/
7+
%#!. 1 +
1+
%#!. 1+
%
-'N. !
3/
7+
%# %+
+
%+
%
-)-%
3
-+3-%#
-
!"
!"" "#$
%
'$
#$(&
&&$
)#
*+$
,
$-#
!""
$
.# #
&
!""*+$
,
#
$/
$
-
%
" $ 0
#"
&"& &
$.
$."
$
0 &$1
& 2
'*34+5
'5
'5
'* +$
&"
6
$
$
6$&
&&&$
&
" $."#
&6$
##
&$
%7#
89':9 & &$0
# $.
69;$
0&
2
'5
'&5
'&$
0 */E%/> +
*+$E & 699$
B"#
&'()')($& 2#"$
* H/E%/>$, & &
B%>/E%/>A
C&
A
,"# B%>/E%/>A0
#"A(A
%#"AC&
"#A
@M M HNO+
#"&$
,B%>/E%/>A
$?
$
#$ 8:$
-
#$ 2$
/E%/>& & &2
' 5
'"5
'!5
'"#* +5
'"#$$
0&
&$
&
* & +&$
+-./0.1 &
*
+$)
#&$)
&"
$$7
$.UTSVTW&
& $
+ 2-3*F(1/0#*Q/0C061+
"
&&"$C&
"2
'
"&5
'XYZ[[$
0 \U]
$ *FC#**D=5+
"#&$
+4*/1/60*(6=#(1/E=#(1+
$
-
15*=/#3/+2
' 5
' 5
'5
'5
'"& $
)"& &2
&$$
)#"5
*=#(1/E%/>666*World Wide Web'0) +$0"#"U/
-
U/$. !&
# *=/G#3/+
$,& &
U/@ DD>$@E >@FD>%@D>&@C
&2
>@'
5
>$@' &
"5
>@W *+5
#
-
>%@D>&@'#"#"$
CX8;
"#2
%&&''''G)G5
%&&''''_B"#, #
>&5
%&&''''(##9D*#=(6>/?0@/*13(/G5
%&&'''&&'%#&
E 5
%&&'''('G 05
%&&''')'&>A-A.J($
%*&
*YDG/0/S0#*f/0C061+$0"B%>/E%/>
$ /
"# &"$C
"# B%>/E%/> #
*/#06/*3(*/+$
7!
U/
-
@
$
B!A,A
@" !$?
$
B & !
$)&
2
'5
' 5
'
5
'
""#5
' #5
'&"5
'!$
0 !AG#
A
.& !!
#$
, "#U//E%/>
& &A06(/]G/0UA,-
"#$$B "#
! $
.U/
-
!%N-" "#%N-$ O
'%?'%H
PQ?
'
'%ON'C'
O!RN?%CCH?
O#C
#
O
-)O
.%?'%H
PR'
%&%&'&%#
'O$H&%#
CN%O,KR'
N?%%#
O#QN%
N%
O
1S %?'%H
PR
H%%%?
#OR
H%%%?
?O!R
H%%%?
?#O#R
#&%#
O
34)
O
4GNT
()*O
5)%
()*+)*O
6%?'%H
P()*+)*N%C%%
CNO()*+)*N%O!()*+)*NNUH%
O#()*+)*N
%CN
%N
'C''C
'H%NO1K()*+)*'C
'H%NO
7%()*+)*P
4G()*+)*V-WO-V-OV-MO-J2OX
O
')%%'C
'
HOX
%?U
HO
&O
-
7341,531O64=13O07" # 7341,531O,8=;/O07"
,6958Y3/35851O64=13O07" ,6958Y3/35851O,8=;/O07"
! Z41:173951O64=13O07" + Z41:173951O,8/848:3O07O
-XHH%
%HN()*+)*IN#K'
IN#K
I8K &%
I'?
%
K"
IYK
UNH
["
I,K
&'NH
'()*+)*"
I7K [
'"
I1K NN
'?N#
%NN?[
"
I\K
C
()*+)*"
I]K %%C[C'?
O
.XH'()*+)* %""!%O
1%?'%H
^
_1Y
#%^ `$`QaO
-
ZiDeScoala !Lectie
x[1]+ x[2]+ x[3]+ x[4];
y[7]+ y[8]+ y[9]+ y[10];
abs(x[3]);
abs(y[6]);
x[1]+ y[10].
Program RTA9;{ }type Numere = array [1..50] of integer;var A : Numere; n, i : integer;begin write( n=); readln(n); { ! "# } for i:=1 to n do begin write(A[, i, ]=); readln(A[i]); end; { $% &!# } writeln(:);
-
for i:=n downto 1 do writeln(A[, i, ]=, A[i]); readln;end.
"string#$!%&'()*vstring#*#+length(v)!**integer"string,,--.././-/0#1boolean
Program RTA10;{ ' }var S : string; i : integer;begin writeln(:); readln(S); writeln(:); for i:=length(S) downto 1 do write(S[i]); writeln; readln;end.
Program RTA11;{ ( }type Angajat = record NumePrenume : string; Salariu : real; end; ListaDePlata = array [1..100] of Angajat;var L : ListaDePlata;
-
s : real; i, n : integer;begin write( n=); readln(n); { $%)%!*%%#"!% } for i:=1 to n do begin writeln( , i); write(: ); readln(L[i].NumePrenume); write(: ); readln(L[i].Salariu); end; { +%!! ,%-#. } s:=0; for i:=1 to n do if L[i].Salariu > s then s:=L[i].Salariu; writeln( = , s:10:2); { $%)} writeln(:); for i:=1 to n do if L[i].Salariu = s then writeln(L[i].NumePrenume); readln;end.
2with##,3456!7689record$#%
:V;
=
@>=
A>=
?>>@>=
?>>A>=
@>>A>=
?>>@>>A>=
:I;
