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.