Кто-то решал это? какие два ответа получились

ответ:

1)1 чел 2)30

объяснение:

но ведь в только пример как мы ответ то дадим, без всей таблицы? если по примеру, то конечно получается 1)1 чел 2)30

Uses crt; var       d, a, b, c, x1, x2: real; begin       writeln('введите a, b, c');       readln(a, b, c);       d : = b * b - 4 * a * c;             if d > 0 then       begin               x1 : = (-b + sqrt(d)) / (2 * a);               x2 : = (-b - sqrt(d)) / (2 * a);               writeln('x1 = ', x1: 2: 2);               writeln('x2 = ', x2: 2: 2);       end       else if d = 0 then       begin               x1 : = -b / (2 * a);               writeln('x = ', x1: 2: 2);       end       else               writeln('нет действительных корней'); end.

Var m,n,i,j: integer; bool: boolean; begin readln(n,m); //читаем н и м for i: =n to m do begin   // от н до м выполняем циклbool: =false;   // обнуляем переменную для каждой итерации   for j: =2 to i-1 do begin   // проверяем, делится ли число на числа, которые находятся в промежутку от 2 до это число -1    if (i mod j=0) then bool: =true; //если делится, тогда bool: =true    end; if (bool = false) then write(i,' ');   //если bool = false, значит это число делится только на себя и на 1, а значит оно простое и выводим это число end; end.