/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/!Tutorial/06_ForWhileRepeat/For1a.pas
36 строк
639 B
Mikhalkovich Stanislav
Примеры правлю на современные
14 окт 2025, 21:21
14 окт 2025, 21:21
e840fcb
Код
Авторство
О чём код?
// Цикл for. Шаг цикла 2 const n = 25; begin Println('Чётные числа от 1 до', 2 * n); for var i := 1 to n do Print(2 * i); Println; Println; Println('Чётные числа от 1 до', 2 * n); var x := 2; for var i := 1 to n do begin Print(x); x += 2; end; Println; Println; Println('Нечётные числа от 1 до', 2 * n); for var i := 1 to n do Print(2 * i - 1); Println; Println; Println('Нечётные числа от 1 до', 2 * n); x := 1; for var i := 1 to n do begin Print(x); x += 2; end; Println; Println; end.