/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
Yield/tests/testFor.pas
27 строк
366 B
Oleg Batashov
Yield tree conversion projects added
19 май 2016, 02:14
19 май 2016, 02:14
4050d31
Код
Авторство
О чём код?
var i: integer; function Gen: sequence of integer; begin for var i := 10 downto 1 do yield i; for var i := 2 to 5 do begin if (i mod 2 = 0) then begin yield i; end; end end; (* procedure Gen; begin for var i := 10 downto 1 do writeln(i); end; *) begin //Gen(); var q := Gen(); foreach var e in q do writeln(e); end.