Используя только циклы в java 1. найти сумму четных чисел и их количество в диапазоне от 1 до 99 2. проверить простое ли число? (число называется простым, если оно делится только само на себя и на 1) 3. найти корень натурального числа с точностью до целого (рассмотреть вариант последовательного подбора и метод бинарного поиска) 4. вычислить факториал числа n. n! = 1*2*…*n-1*n; 5. посчитать сумму цифр заданного числа 6. вывести число, которое является зеркальным отображением последовательности цифр заданного числа, например, задано число 123, вывести 321.

задай свой вопрос ни здесь а в !

Type       array100 = array[1..100]of integer; var       x: array100;       i, n, j, t, min, max: integer; procedure show(x: array100; n: integer); var i: integer; begin       writeln();       writeln('вывод массива[',n,']: ');       for i : = 1 to n do               write(x[i], ' ');       writeln(); end; begin       n : = 20;       max : = -200;       min : = 200;             for i : = 1 to n do       begin               x[i] : = random(2*n) - n;       end;       show(x, n);             for i : = 1 to n do       begin               if (x[i] > 0) and (x[i] mod 2 = 1) then begin                       if x[i] > max then max : = x[i];                       if x[i] < min then min : = x[i];               end;       end;       writeln('max = ', max, ' min = ', min);             i : = 1;       while i < = n do       begin               if x[i] = 0 then begin                       for j : = i + 1 to n do                               x[j - 1] : = x[j];                       n : = n - 1;               end               else i : = i + 1;       end;       show(x,n); end.

Type       array100 = array[1..100]of integer; var       x: array100;       i, n, j, t, min, max: integer; procedure show(x: array100; n: integer); var i: integer; begin       writeln();       writeln('вывод массива[',n,']: ');       for i : = 1 to n do               write(x[i], ' ');       writeln(); end; begin       n : = 20;       max : = -200;       min : = 200;             for i : = 1 to n do       begin               x[i] : = random(2*n) - n;       end;       show(x, n);             for i : = 1 to n do       begin               if (x[i] > 0) and (x[i] mod 2 = 1) then begin                       if x[i] > max then max : = x[i];                       if x[i] < min then min : = x[i];               end;       end;       writeln('max = ', max, ' min = ', min);             i : = 1;       while i < = n do       begin               if x[i] = 0 then begin                       for j : = i + 1 to n do                               x[j - 1] : = x[j];                       n : = n - 1;               end               else i : = i + 1;       end;       show(x,n); end.