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

11
PascalABCnet/while/While_task1.pas Normal file
View File

@@ -0,0 +1,11 @@
Program While_task_1;
Var a,b:integer;
Begin
ReadLn(b);
a:=1;
While ((a<b) or (a=b)) do
begin
WriteLn(a);
inc (a);
end;
end.

13
PascalABCnet/while/While_task3.pas Normal file
View File

@@ -0,0 +1,13 @@
Program While_Task3;
const n=5;
var a:integer;
begin
WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD> 5');
ReadLn(a);
While a<>n do
begin
WriteLn ('<27><> <20><><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>');
ReadLn(a);
end;
WriteLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end.

15
PascalABCnet/while/While_task7.pas Normal file
View File

@@ -0,0 +1,15 @@
Program While_Task7;
const n=10;
var a:integer;
begin
While a<> n do
Begin
writeln('hello');
inc(a);
end;
a:=0;
repeat
writeln('hello');
inc(a);
until a=n;
end.

10
PascalABCnet/while/While_task8.pas Normal file
View File

@@ -0,0 +1,10 @@
Program While_Task8;
const n=25;
var a:integer;
begin
a:=3;
Repeat
Writeln(a);
inc(a);
until a>n;
end.

13
PascalABCnet/while/while2.pas Normal file
View File

@@ -0,0 +1,13 @@
Program While4;
Var a,b,c:integer;
begin
ReadLn(a,b);
Write (a mod b);
{
while a mod b =0 do
begin
c:=a mod b;
end;
WriteLn(c);
}
end.