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

25
PascalABCnet/остальное/randomiser.pas Normal file
View File

@@ -0,0 +1,25 @@
program ranodmizer;
Uses crt;
var y,x,i:integer;
const N=5;
begin
i:=1; //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
y:= random (10); //<2F><><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
//writeln (y);
WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>');
ReadLn(x); //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
While ((x<>y)and(i<N+1)) do //<2F><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
begin
{
if x>y then writeln ('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
if x<y then writeln ('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
}
writeLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD>');
ReadLn(x);
inc(i); //<2F><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,while <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> begin
end;
if(x=y)then writeLn ('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
if not (x=y) then writeln ('<27><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
readkey;
end.