14 lines
324 B
ObjectPascal
14 lines
324 B
ObjectPascal
uses Исполнители;
|
|
|
|
begin
|
|
var арифм := АрифметическаяПрогрессия(1,2,20);
|
|
арифм.Вывести;
|
|
арифм.Сумма.Вывести;
|
|
var геом := ГеометическаяПрогрессия(1,2,10);
|
|
геом.Вывести;
|
|
геом.Сумма.Вывести;
|
|
var случай := СлучайнаяПоследовательность(10,1,100);
|
|
случай.Вывести;
|
|
Вывести(случай.Минимум,случай.Максимум);
|
|
end.
|
|
|