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

17
PascalABCnet/case..of/case1.pas Normal file
View File

@@ -0,0 +1,17 @@
Program case_of;
Var a:integer;
begin
WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>');
ReadLn(a);
case a of
1: WriteLn('<27><><EFBFBD><EFBFBD> <20><>');
2: WriteLn('<27><><EFBFBD><EFBFBD> <20><>');
3: WriteLn('<27><><EFBFBD><EFBFBD> <20><>');
4: WriteLn('<27><><EFBFBD><EFBFBD> <20><>');
5: WriteLn('<27><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>');
6: WriteLn('<27><><EFBFBD><EFBFBD> <20><>');
7: WriteLn('<27><><EFBFBD><EFBFBD> <20><>');
else WriteLn('<27><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>!!!')
end;
end.