From c99573bd6d25541396fc315997d1044c6379f54b Mon Sep 17 00:00:00 2001 From: mzhoot Date: Sat, 4 Jul 2026 16:49:09 +0000 Subject: [PATCH] Upload New File --- ТЕСТЫ/test2.pas | 28 ++++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) create mode 100644 ТЕСТЫ/test2.pas diff --git a/ТЕСТЫ/test2.pas b/ТЕСТЫ/test2.pas new file mode 100644 index 000000000..1eaa56910 --- /dev/null +++ b/ТЕСТЫ/test2.pas @@ -0,0 +1,28 @@ +uses РусскийЯзыг; + +нач + ПечатьСтроку('=== Тест русского Паскаля ==='); + ПечатьСтроку; + + Печать('Введите ваше имя: '); + перем имя := ВводСтроки; + ПечатьСтроку('Привет, ', имя, '!'); + ПечатьСтроку; + + Печать('Введите число: '); + перем x := ВводЦелого; + + ПечатьСтроку('Число: ', x); + ПечатьСтроку('Квадрат: ', Квадрат(x)); + ПечатьСтроку('Корень: ', Корень(x)); + ПечатьСтроку('МодЧисла от -', x, ' = ', МодЧисла(-x)); + ПечатьСтроку; + + Печать('Случайное число от 1 до 100: '); + ПечатьСтроку(Случайное(1, 100)); + + ПечатьСтроку; + ПечатьСтроку('Пауза 2 секунды...'); + Пауза(2000); + ПечатьСтроку('Готово!'); +кон. \ No newline at end of file