administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Правка примеров

Browse source
This commit is contained in:
Mikhalkovich Stanislav 2025-10-28 10:19:43 +03:00
parent c5b3ae2ab6
commit c329530915
2 changed files with 1 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
InstallerSamples/!Tutorial/06_ForWhileRepeat/For2.pas
View file

@ -1,5 +1,4 @@
// Цикл for. Последовательность случайных чисел
const n = 20;
begin
@ -7,6 +6,7 @@ begin
for var i := 1 to n do
Print(Random(2, 5));
Println;
Print('Случайные целые от 1 до 99:');
for var i := n downto 1 do
Print(Random(1, 99));

13
InstallerSamples/!Tutorial/06_ForWhileRepeat/For3.pas
View file

@ -1,13 +0,0 @@
// Цикл for. Последовательность случайных чисел
const n = 20;
begin
Println('Случайные целые от 2 до 5:');
for var i := 1 to n do
Print(Random(2, 5));
Println;
Println;
Println('Случайные целые от 1 до 99:');
for var i := n downto 1 do
Print(Random(1, 99));
end.