13 lines
255 B
ObjectPascal
13 lines
255 B
ObjectPascal
uses Исполнители;
|
|
|
|
|
|
begin
|
|
var арифм1 := АрифметическаяПрогрессия(1,2,20);
|
|
арифм1.Вывести;
|
|
арифм1.Сумма.Вывести;
|
|
var посл2 := арифм1.Преобразовать(x->x*x);
|
|
посл2.Вывести;
|
|
var посл3 := посл2.Выбрать(x -> x mod 10 = 5);
|
|
посл3.Вывести;
|
|
end.
|
|
|