/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
Yield/tests/yield3.pas
16 строк
209 B
Oleg Batashov
Yield tree conversion projects added
19 май 2016, 02:14
19 май 2016, 02:14
4050d31
Код
Авторство
О чём код?
function Gen(n: integer): sequence of integer; var j,k: real; begin var i := 1; j := n; while i<j do begin yield i*i; i += 1; end; end; begin foreach var x in Gen(10) do Print(x); end.