// 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.
Содержание понятия — это совокупность существенных и отличительных признаков предмета, качества или множества однородных предметов, отражённых в этом понятии, поскольку с точки зрения логики всякое понятие имеет содержание и объём. например, содержанием понятия «коррупция» является совокупность двух существенных признаков: «сращение государственных структур со структурой преступного мира» и «подкуп и продажность общественных и политических деятелей, государственных чиновников и должностных лиц». о содержании понятия нельзя говорить в отрыве от его объёма. объёмом понятия называется множество обобщённых в нём предметов. например, под объёмом понятия «товар» подразумевается множество всех изделий, предлагаемых рынку как сейчас, так и в прошлом или в будущем. а чтоб понятнее: род - цветок, фрукт, овощ, буква, цифра, орудие, прибор, животное, насекомое, металл, орган, подросток, дом, день, военный, вид - школьник, лодка, олово, почки, морковь, микроскоп, два, фиалки, сержант, топор, груши, "у", тюлень, резиновая лодка, оса, деревянный дом, зимний день. кажется так. вот род цветок, а вид фиалка. или род овощ, а вид морковь. в род входит класс. цветок - фиалка фрукт - груши овощ - морковь буква - у цифра - 2 орудие - топор прибор - микроскоп животное - тюлень насекомое - оса
Один угол остается свободным.