Составить программы введите несколько чисел. найдите произведение чисел меньших 7. введите несколько чисел. найдите количество двузначных чисел. введите несколько чисел. определить каких чисел меньше - больше 10 или меньше 10 введите несколько чисел. вывести числа от 12 до 40 кратные 7.

Первая программа var   n, i, x, s : integer;   t : boolean; begin   writeln('количество чисел');   readln(n);   s : = 1;   t : = false;   for i : = 1 to n do     begin       writeln(i,' число');       readln(x);       if x < 7 then         begin           t : = true;           s : = s*x;         end;     end;   if t then     writeln('ответ ',s)   else     writeln('ответ ',0); end.втораяvar  n, i, x, s : integer; begin  writeln('kolichestvo chisel');   readln(n);   s : = 0;   for i : = 1 to n do    begin      writeln(i,' chislo');       readln(x);       if (x > = 10) and (x < 99) then        s : = s + 1;     end;   writeln('otvet: ',s); end.третьяvar  n, i, x, s : integer; begin  writeln('kolichestvo chisel');   readln(n);   s : = 0;   for i : = 1 to n do    begin      writeln(i,' chislo');       readln(x);       if x > 10 then        s : = s + 1      else if x < 10 then        s : = s - 1;     end;   if s > 0 then        writeln('chisel > 10 bolche')  else if s < 0 then    writeln('chisel < 10 bolche')  else    writeln('chisel porovnu'); end.четвёртаяvar  n, i, x : integer;   st : string; begin  writeln('kolichestvo chisel');   readln(n);   for i : = 1 to n do    begin      writeln(i,' chislo');       readln(x);       if (x > 12)   and (x < 40) and (x mod 7 = 0) then        st : = st + inttostr(x) + ' ';     end;     writeln('otvet: ',st); end.

Метод set нужен для того что бы присвоить закрытым (private)  переменным в классе какое-либо значение. т.к поле private  доступно только для методов этого класса.  а конструктор в зависимости от условия присваивает им какое-либо дефолтное значение . разница в том что конструктор запускается автоматически при создании объекта.  пример (с++) class fraction { private:   int n; int den; public: fraction();   // прототип конструктора void setfraction(int, int); // прототип сет-метода }; void fraction: : setfraction(int num, int denum) // сам сет-метод   { n = num; den = denum; } fraction: : fraction() // конструктор { int n = null; int den= null; }