From c32953091512f6efc1bf74a05b0463d0b9c9ba42 Mon Sep 17 00:00:00 2001 From: Mikhalkovich Stanislav Date: Tue, 28 Oct 2025 10:19:43 +0300 Subject: [PATCH] =?UTF-8?q?=D0=9F=D1=80=D0=B0=D0=B2=D0=BA=D0=B0=20=D0=BF?= =?UTF-8?q?=D1=80=D0=B8=D0=BC=D0=B5=D1=80=D0=BE=D0=B2?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../!Tutorial/06_ForWhileRepeat/For2.pas | 2 +- .../!Tutorial/06_ForWhileRepeat/For3.pas | 13 ------------- 2 files changed, 1 insertion(+), 14 deletions(-) delete mode 100644 InstallerSamples/!Tutorial/06_ForWhileRepeat/For3.pas diff --git a/InstallerSamples/!Tutorial/06_ForWhileRepeat/For2.pas b/InstallerSamples/!Tutorial/06_ForWhileRepeat/For2.pas index c26531e41..af4eadebd 100644 --- a/InstallerSamples/!Tutorial/06_ForWhileRepeat/For2.pas +++ b/InstallerSamples/!Tutorial/06_ForWhileRepeat/For2.pas @@ -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)); diff --git a/InstallerSamples/!Tutorial/06_ForWhileRepeat/For3.pas b/InstallerSamples/!Tutorial/06_ForWhileRepeat/For3.pas deleted file mode 100644 index fbc23d64d..000000000 --- a/InstallerSamples/!Tutorial/06_ForWhileRepeat/For3.pas +++ /dev/null @@ -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.