Гипермәтін ұғымын 1965 жлы кім енгізді

пусть [a,b] - область и a< =b

var

a,b,x: real;

begin

readln(a,b,x);

if (a< =x) and (x< =b) then

writeln('принадлежит')

else

writeln('не принадлежит');

end.

3  учеников этого класса любят все три вида спорта

var a,c,l,w1,w2,w3 : longint;

begin

  readln(a,c);

  w1: =0;

  w2: =0;

  w3: =0;

  l: =a mod 10;

  while a> 0 do

  begin

      if a mod 10=c then w1: =w1+1;

        if a mod 10=l then w2: =w2+1;

        if a mod 2=0 then w3: =w3+1;

        a: =a div 10;

  end;

  writeln(w1,' ',w2,' ',w3);

end.

1) действие

2)признак скорее всего

3)состав

4)состав