h3lp/learning
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add Pascal learning files

Browse Source
This commit is contained in:
h3lp
2025-11-20 21:18:32 +02:00
parent 1ce193cc0d
commit 258f24570a
37 changed files with 587 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
PascalABCnet/массивы/бред.pas Normal file
View File

@@ -0,0 +1,13 @@
program summof30;
const n=30;
type My=array [1..30] of integer; //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> 30 <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
var a: my;
s,i:integer;
begin
WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD> ',n,' <20><><EFBFBD><EFBFBD><EFBFBD>');
for i:=1 to n do ReadLn(a[i]);//<2F><> <20><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> [i], <20><> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
s:=0;
for i:=1 to n do s:=s+a[i]; //<2F><><EFBFBD> <20><><EFBFBD> <20><> <20><><EFBFBD><EFBFBD> [i], <20><> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
WriteLn(s);
end.