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

6
PascalABCnet/параметр цикла for/for1.pas Normal file
View File

@@ -0,0 +1,6 @@
program for1;
var i,k,n:integer;
begin
Read(k,n);
For i:=1 to n do WriteLn(k);
end.

11
PascalABCnet/параметр цикла for/for2.pas Normal file
View File

@@ -0,0 +1,11 @@
program for2;
var a,b,i,n:integer;
begin
Read(a,b);
For i:=a to b do
begin
WriteLn(i);
n:=n+1
end;
writeln('n=' , n);
end.

6
PascalABCnet/параметр цикла for/for3.pas Normal file
View File

@@ -0,0 +1,6 @@
program for3;
var k,n,i:integer;
begin
Read(k,n);
For i:=k to n do WriteLn(k);
end.

11
PascalABCnet/параметр цикла for/for4.pas Normal file
View File

@@ -0,0 +1,11 @@
program for4;
var a,b,i,n:integer;
begin
read(a,b);
For i:=a to b do
begin
WriteLn(i);
inc(n);
end;
WriteLn(n);
end.

11
PascalABCnet/параметр цикла for/for5.pas Normal file
View File

@@ -0,0 +1,11 @@
program for5;
var a,b,i,n:integer;
begin
read(a,b);
For i:=b-1 downto a+1 do
begin
WriteLn(i);
inc(n);
end;
WriteLn(n);
end.