// PascalABC.NET 3.3, сборка 1625 от 17.01.2018 // Внимание! Если программа не работает, обновите версию!
function IsPrime(Self:integer):boolean; extensionmethod; // является ли число n простым begin if Self<4 then Result:=True else begin var found:=(Self mod 2=0); var p:=3; while (not found) and (sqr(p)<=Self) do begin found:=(Self mod p=0); p+=2 end; Result:=not found end end;
function SumDig(Self:integer):integer; extensionmethod; // возвращает сумму цифр числа n begin var n:=Self; Result:=0; while n>0 do begin Result+=n mod 10; n:=n div 10 end end;
begin 100.To(999).Where(t->t.SumDig.IsPrime).Println end.
Запустите программу, выберите меню Файл | Создать…. Справа появилась боковая панель создания документа. В разделе «Создание документа с шаблона» щёлкните по пункту «Общие шаблоны…». В появившемся диалоге «Шаблоны» откройте вкладку «Другие документы» и выберите пункт «Мастер календарей». Нажмите OK для продолжения. Если компонент календаря ещё не установлен, то программа сама его установит. На первой странице Мастера календарей щёлкните «Дальше». Выберите стиль оформления календаря: «Строгий», «Стандартный» или «Изысканный». По внешнему виду можно догадаться, как календарь будет выглядеть. Выберите ориентацию календаря и наличие рисунка. С рисунком готовый документ будет выглядеть немного нарядней, особенно, если распечатаете его на цветном принтере. Выберите начальный и конечный месяц и год. По умолчанию выбран текущий месяц и год 2013. Рекомендую сразу распечатать календарь на год – выберите следующий 2014 год. Создание календаря завершено! Нажмите кнопку «Готово», чтобы увидеть получившийся документ.
