2022 sector d0

2025-04-05 18:33:19 +03:00
parent 85921c19dc
commit 9fc1289f42
48 changed files with 143 additions and 0 deletions
@@ -0,0 +1 @@
 4
@@ -0,0 +1 @@
 24
@@ -0,0 +1,21 @@
 Program Factorial;
 var n, i : integer;
    F : longint;
    Intrare, Iesire : text;
    label 1;
 begin
   { Citirea datelor de intrare }
   assign(Intrare, 'fact.in');
   reset(Intrare);
   readln(Intrare, n);
   close(Intrare);
   { Calcularea factorialului }
   F:=1;
   if n=0 then goto 1;
   for i:=1 to n do F:=F*i;
 1: { Scrierea datelor de iesire }
   assign(Iesire, 'fact.out');
   rewrite(Iesire);
   writeln(Iesire, F);
   close(Iesire);
 end.
@@ -0,0 +1,2 @@
 5
@@ -0,0 +1 @@
 120
@@ -0,0 +1,2 @@
 7
@@ -0,0 +1 @@
 5040
@@ -0,0 +1 @@
 8
@@ -0,0 +1 @@
 40320
@@ -0,0 +1 @@
 6
@@ -0,0 +1 @@
 720
@@ -0,0 +1,3 @@
 12
@@ -0,0 +1 @@
 479001600
@@ -0,0 +1,4 @@
 3
 5
 -7
 23
@@ -0,0 +1 @@
 21
@@ -0,0 +1,22 @@
 Program Suma;
 var n, i, S : integer;
    A : array[1..100] of integer;
    Intrare, Iesire : text;
 begin
   { Citirea datelor de intrare }
   assign(Intrare, 'suma.in');
   reset(Intrare);
   readln(Intrare, n);
   for i:=1 to n do
      readln(Intrare, A[i]);
   close(Intrare);
   { Calcularea sumei }
   S:=0;
   for i:=1 to n do
      S:=S+A[i];
   { Scrierea datelor de iesire }
   assign(Iesire, 'suma.out');
   rewrite(Iesire);
   writeln(Iesire, S);
   close(Iesire);
 end.
@@ -0,0 +1,3 @@
 1
 100
@@ -0,0 +1 @@
 100
@@ -0,0 +1,3 @@
 2
 100
 100
@@ -0,0 +1 @@
 200
@@ -0,0 +1,3 @@
 2
 100
 -100
@@ -0,0 +1 @@
 0
@@ -0,0 +1,11 @@
 10
 1
 2
 3
 4
 5
 6
 7
 8
 9
 10
@@ -0,0 +1 @@
 55
@@ -0,0 +1,11 @@
 10
 -1
 -2
 -3
 -4
 -5
 -6
 -7
 -8
 -9
 10
@@ -0,0 +1 @@
 -35
@@ -0,0 +1,2 @@
 e
 Rezolvarea problemelor complexe este imposibila fara cunoasterea tehnicilor de programare
@@ -0,0 +1 @@
 13
@@ -0,0 +1,2 @@
 r
 Programarea modulara are mai multe avantaje
@@ -0,0 +1 @@
 5
@@ -0,0 +1,2 @@
 a
 Prelucrarea textelor este o munca migaloasa
@@ -0,0 +1 @@
 6
@@ -0,0 +1,2 @@
 8
 8984723hnd010-23nnoj98483924h928312`--knx209893n1-1-`1219jjj2109jw029jdm
@@ -0,0 +1 @@
 6
@@ -0,0 +1,2 @@
 1
 1111111111222221111111111aaaaa1111111111bbbbb111111111111111111111
@@ -0,0 +1 @@
 51
@@ -0,0 +1,2 @@
 m
 Olimpiada Raionala / Municipala la Informatica 2022
@@ -0,0 +1 @@
 2
@@ -0,0 +1,25 @@
 Program Texte;
 var N : integer;
    C : char;
    T : string;
    Intrare, Iesire : text;
    L : integer; { lungimea textului T }
    i : integer; { contor penru parcurgerea textului T }
 begin
   { Citirea datelor de intrare }
   assign(Intrare, 'texte.in');
   reset(Intrare);
   readln(Intrare, C);
   readln(Intrare, T);
   close(Intrare);
   { Calcularea numarului de aparitii }
   N:=0;
   L:=length(T);
   for i:=1 to L do
      if C=T[i] then N:=N+1;
   { Scrierea datelor de iesire }
   assign(Iesire, 'texte.out');
   rewrite(Iesire);
   writeln(Iesire, N);
   close(Iesire);
 end.
		`@@ -0,0 +1,2 @@`
							`e`
							`Rezolvarea problemelor complexe este imposibila fara cunoasterea tehnicilor de programare`
		`@@ -0,0 +1,2 @@`
							`r`
							`Programarea modulara are mai multe avantaje`
		`@@ -0,0 +1,2 @@`
							`a`
							`Prelucrarea textelor este o munca migaloasa`
		`@@ -0,0 +1,2 @@`
							`8`
							8984723hnd010-23nnoj98483924h928312`--knx209893n1-1-`1219jjj2109jw029jdm
		`@@ -0,0 +1,2 @@`
							`1`
							`1111111111222221111111111aaaaa1111111111bbbbb111111111111111111111`
		`@@ -0,0 +1,2 @@`
							`m`
							`Olimpiada Raionala / Municipala la Informatica 2022`