Помоги плс срочно надо! (Pascal ABC)
Найти среднеорифметическое всех простых чисел на отрезке от -А до В

А можно в форме задачи 8 класса без этих не понятных программ ?

Пожалусто

Извиняйте, я уже не помню как элементарно их решать)

Ну как-то её сократить же можно ?

можно, но я не знаю как) я когда в 8 классе был у нас даже компьютеров в школе не было, а такие задачи я начал на 2 курсе решать, и написал как могу.

uses crt; procedure Prost(a:longint;var f:boolean); var i:longint; begin if a<3 then f:=false else  begin   f:=true;   for i:=2 to round(sqrt(a)) do   if a mod i=0 then f:=false;  end; end; var  a,b,i,k:longint;      f:boolean; begin clrscr; repeat writeln('Введите диапазон натуральных чисел  a<b:'); readln(a,b); until (a>=0)and(b>a); k:=0; for i:=a to b do  begin   Prost(i,f);   if f then    begin     write(i,' ');     k:=1;    end;  end; if k=0 then writeln('Простых чисел в интервале ',a,' ',b,' нет!'); readln end.