PascalABC.NET
#1
begin
PartitionPoints(-10, 10, 20).Tabulate(p -> 5*(p**2) + 2*p).Println;
end.
#2
begin
var A := ReadSeqIntegerWhile(p -> p <> 0).ToList;
var x := ReadInteger('Считаем это число: ');
A.Where(p -> p = x).Count.Println;
end.
#3
function IsNumberContainsDigit(number:integer; digit: char):boolean;
begin
var stringnumber := number.ToString;
if stringnumber.contains(digit) then IsNumberContainsDigit:=True else IsNumberContainsDigit := False
end;
begin
var (a, b) := ReadInteger2('a, b: ');
var rng := Range(a, b);
rng.Where(p->IsNumberContainsDigit(p, '0')).Print;
end.
Объяснение:
C и не (A и B)
Объяснение:
Заштрихована область, принадлежащая кругу (C) и не принадлежащая треугольнику (A) и квадрату (B).