/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/while1.pas
28 строк
397 B
Бондарев Иван
initial commit
14 май 2015, 22:35
14 май 2015, 22:35
e6e67c1
Код
Авторство
О чём код?
begin var i := 1; var s := 0; while i < 5 do begin s := s + i; Inc(i); end; assert(s=10); var flag := false; while not flag do begin i := 3; flag := true; end; assert(i=3); var enum: (one, two, three) := one; while enum < three do begin Inc(enum); end; assert(enum = three); i := 0; var arr: array of integer; SetLength(arr,5); while (i<5) and (arr[i] = 0) do Inc(i); assert(i=5); end.