Использование циклов

Использование циклов
d1 := DateTime.Now;
t := d1.Hour*60*60*1000 + d1.Minute*60*1000 + d1.Second*1000 + d1.Millisecond;
moveTo(300,200);
LineTo(300,200,clBlue); LineTo(288,248,clBlue); LineTo(254,284,clBlue);
LineTo(207,300,clBlue); LineTo(158,291,clBlue); LineTo(120,260,clBlue);
LineTo(101,214,clBlue); LineTo(106,165,clBlue); LineTo(135,124,clBlue);
LineTo(179,102,clBlue); LineTo(228,104,clBlue); LineTo(271,129,clBlue);
LineTo(296,172,clBlue); LineTo(300,200,clBlue);
d2 := DateTime.Now;
t := (d2.Hour*60*60*1000 + d2.Minute*60*1000 + d2.Second*1000 + d2.Millisecond)-t;
Writeln(t);
end.

Использование циклов

Использование циклов
Арифметический цикл с рекуррентной зависимостью (for, while, repeat until)
Примеры

Использование циклов
Вычисление пределов последовательности (while, repeat until)
Примеры