Fix 2022 misidentified day0

This commit is contained in:
2025-04-05 18:35:34 +03:00
parent 9fc1289f42
commit f3624767fd
50 changed files with 0 additions and 0 deletions

BIN
2022/city/d0/day0_ro.docx Normal file

Binary file not shown.

BIN
2022/city/d0/day0_ru.docx Normal file

Binary file not shown.

View File

@@ -0,0 +1 @@
4

View File

@@ -0,0 +1 @@
24

View File

@@ -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.

Binary file not shown.

Binary file not shown.

View File

@@ -0,0 +1,2 @@
5

View File

@@ -0,0 +1 @@
120

View File

@@ -0,0 +1,2 @@
7

View File

@@ -0,0 +1 @@
5040

View File

@@ -0,0 +1 @@
8

View File

@@ -0,0 +1 @@
40320

View File

@@ -0,0 +1 @@
6

View File

@@ -0,0 +1 @@
720

View File

@@ -0,0 +1,3 @@
12

View File

@@ -0,0 +1 @@
479001600

Binary file not shown.

Binary file not shown.

View File

@@ -0,0 +1,4 @@
3
5
-7
23

View File

@@ -0,0 +1 @@
21

View File

@@ -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.

View File

@@ -0,0 +1,3 @@
1
100

View File

@@ -0,0 +1 @@
100

View File

@@ -0,0 +1,3 @@
2
100
100

View File

@@ -0,0 +1 @@
200

View File

@@ -0,0 +1,3 @@
2
100
-100

View File

@@ -0,0 +1 @@
0

View File

@@ -0,0 +1,11 @@
10
1
2
3
4
5
6
7
8
9
10

View File

@@ -0,0 +1 @@
55

View File

@@ -0,0 +1,11 @@
10
-1
-2
-3
-4
-5
-6
-7
-8
-9
10

View File

@@ -0,0 +1 @@
-35

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

@@ -0,0 +1,2 @@
e
Rezolvarea problemelor complexe este imposibila fara cunoasterea tehnicilor de programare

View File

@@ -0,0 +1 @@
13

View File

@@ -0,0 +1,2 @@
r
Programarea modulara are mai multe avantaje

View File

@@ -0,0 +1 @@
5

View File

@@ -0,0 +1,2 @@
a
Prelucrarea textelor este o munca migaloasa

View File

@@ -0,0 +1 @@
6

View File

@@ -0,0 +1,2 @@
8
8984723hnd010-23nnoj98483924h928312`--knx209893n1-1-`1219jjj2109jw029jdm

View File

@@ -0,0 +1 @@
6

View File

@@ -0,0 +1,2 @@
1
1111111111222221111111111aaaaa1111111111bbbbb111111111111111111111

View File

@@ -0,0 +1 @@
51

View File

@@ -0,0 +1,2 @@
m
Olimpiada Raionala / Municipala la Informatica 2022

View File

@@ -0,0 +1 @@
2

View File

@@ -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.