Fix 2022 misidentified day0

This commit is contained in:
oleg20111511
2025-04-05 18:35:34 +03:00
parent 9fc1289f42
commit f3624767fd
50 changed files with 0 additions and 0 deletions
Binary file not shown.
Binary file not shown.
-1
View File
@@ -1 +0,0 @@
4
-1
View File
@@ -1 +0,0 @@
24
-21
View File
@@ -1,21 +0,0 @@
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.
@@ -1,2 +0,0 @@
5
@@ -1 +0,0 @@
120
@@ -1,2 +0,0 @@
7
@@ -1 +0,0 @@
5040
@@ -1 +0,0 @@
8
@@ -1 +0,0 @@
40320
@@ -1 +0,0 @@
6
@@ -1 +0,0 @@
720
@@ -1,3 +0,0 @@
12
@@ -1 +0,0 @@
479001600
Binary file not shown.
Binary file not shown.
-4
View File
@@ -1,4 +0,0 @@
3
5
-7
23
-1
View File
@@ -1 +0,0 @@
21
-22
View File
@@ -1,22 +0,0 @@
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.
-3
View File
@@ -1,3 +0,0 @@
1
100
-1
View File
@@ -1 +0,0 @@
100
-3
View File
@@ -1,3 +0,0 @@
2
100
100
-1
View File
@@ -1 +0,0 @@
200
-3
View File
@@ -1,3 +0,0 @@
2
100
-100
-1
View File
@@ -1 +0,0 @@
0
-11
View File
@@ -1,11 +0,0 @@
10
1
2
3
4
5
6
7
8
9
10
-1
View File
@@ -1 +0,0 @@
55
-11
View File
@@ -1,11 +0,0 @@
10
-1
-2
-3
-4
-5
-6
-7
-8
-9
10
-1
View File
@@ -1 +0,0 @@
-35
Binary file not shown.
Binary file not shown.
Binary file not shown.
-2
View File
@@ -1,2 +0,0 @@
e
Rezolvarea problemelor complexe este imposibila fara cunoasterea tehnicilor de programare
-1
View File
@@ -1 +0,0 @@
13
-2
View File
@@ -1,2 +0,0 @@
r
Programarea modulara are mai multe avantaje
-1
View File
@@ -1 +0,0 @@
5
-2
View File
@@ -1,2 +0,0 @@
a
Prelucrarea textelor este o munca migaloasa
-1
View File
@@ -1 +0,0 @@
6
-2
View File
@@ -1,2 +0,0 @@
8
8984723hnd010-23nnoj98483924h928312`--knx209893n1-1-`1219jjj2109jw029jdm
-1
View File
@@ -1 +0,0 @@
6
-2
View File
@@ -1,2 +0,0 @@
1
1111111111222221111111111aaaaa1111111111bbbbb111111111111111111111
-1
View File
@@ -1 +0,0 @@
51
-2
View File
@@ -1,2 +0,0 @@
m
Olimpiada Raionala / Municipala la Informatica 2022
-1
View File
@@ -1 +0,0 @@
2
-25
View File
@@ -1,25 +0,0 @@
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.