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/div mod/Div и Mod(Счётчик цифр для 2х знаков).pas Normal file
View File

@@ -0,0 +1,13 @@
program div_mod;
var a,one,dec,hun,rec:integer;
begin
WriteLn ('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>');
ReadLn (a);
one:=a mod 10;
WriteLn ('<27><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> - ',one);
dec:=(a div 10) mod 10;
rec:= dec*10+one;
WriteLn ('<27> <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> - ',rec);
Write ('Enter');
ReadLn;
End.

16
PascalABCnet/div mod/Div и Mod(Счётчик цифр).pas Normal file
View File

@@ -0,0 +1,16 @@
program div_mod;
var a,one,dec,hun,rec:integer;
begin
WriteLn ('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>');
ReadLn (a);
one:=a mod 10;
WriteLn ('<27><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> - ',one);
dec:=(a div 10) mod 10;
WriteLn ('<27><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> - ', dec);
hun:= a div 100;
WriteLn ('<27><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> - ', hun);
rec:= hun*100+dec*10+one;
WriteLn ('<27> <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> - ',rec);
Write ('Enter');
ReadLn;
End.

9
PascalABCnet/div mod/Div и Mod.pas Normal file
View File

@@ -0,0 +1,9 @@
Program oper;
Var a,b,c,d,e,f: integer;
Begin
Read (a,b,c,d);
E:=a div b;
f:= c mod d;
WriteLn (e);
WriteLn (f);
End.

8
PascalABCnet/div mod/k div mod d.pas Normal file
View File

@@ -0,0 +1,8 @@
Program trololo;
var k,d,r,s:integer;
Begin
ReadLn(k,d);
r:=k div d;
s:=k mod d;
WriteLn('<27><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ',k,' <20><> ',d,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ',r,'(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ',s,')');
end.

12
PascalABCnet/div mod/вещественные числа.pas Normal file
View File

@@ -0,0 +1,12 @@
program a7;
var a:real;
b:integer;
begin
ReadLn(a);
a:=a*100;
b:= Trunc (a);
b:=b mod 100;
writeln(b);
a:=(b div 10) + (b mod 10);
writeln(a);
end.

14
PascalABCnet/div mod/сложение цифр 3значных чисел.pas Normal file
View File

@@ -0,0 +1,14 @@
var a,dec,hun,one,k:integer;
begin
writeLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>');
writeln;
readln(a);
one:=a mod 10;
a:=a div 10;
dec:=a mod 10;
a:=a div 10;
hun:=a mod 10;
a:=a div 10;
K:=hun+dec+one;
write(k);
end.

12
PascalABCnet/div mod/цифры 2значного числа.pas Normal file
View File

@@ -0,0 +1,12 @@
var a,dec,hun,one:integer;
begin
writeLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>');
writeln;
readln(a);
one:=a mod 10;
a:=a div 10;
dec:=a mod 10;
a:=a div 10;
writeln(dec);
writeln(one);
end.

15
PascalABCnet/div mod/цифры числа 2.pas Normal file
View File

@@ -0,0 +1,15 @@
var a,dec,hun,one:integer;
begin
writeLn('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>');
writeln;
readln(a);
one:=a mod 10;
a:=a div 10;
dec:=a mod 10;
a:=a div 10;
hun:=a mod 10;
a:=a div 10;
writeln(hun);
writeln(dec);
writeln(one);
end.

18
PascalABCnet/div mod/цифры числа.pas Normal file
View File

@@ -0,0 +1,18 @@
var
n: integer;
a: array[byte] of byte;
i, j: byte;
begin
i := 1;
readln(n);
while n > 0 do
begin
a[i] := n mod 10;
inc(i);
n := n div 10;
end;
j := i - 1;
for i := j downto 1 do
writeln(a[i]);
end.