Помоги плс срочно надобно! (Pascal ABC)Отыскать среднеорифметическое всех обычных чисел на

uses crt; procedure Prost(a:longint;var f:boolean); var i:longint; begin if alt;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('Введите диапазон натуральных чисел alt;b:'); readln(a,b); until (agt;=0)and(bgt;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.

Гена Севастопольский 2019-08-25 23:08:38

напишете плс в форме задачки

Алеша 2019-08-25 23:16:31

изменил ответ, гляди там

Сашок Боргуль 2019-08-25 23:22:35

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

Данил Яшковский 2019-08-25 23:26:20

Пожалусто

Аделина Череванова 2019-08-25 23:29:30

Прощайте, я теснее не помню как тривиально их решать)

Вовка Корков 2019-08-25 23:02:57

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

Арсений 2019-08-25 23:05:10

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

О проекте

Помоги плс срочно надобно! (Pascal ABC)Отыскать среднеорифметическое всех обычных чисел на

Добро пожаловать!