Информатика, опубликовано 2018-08-22 20:51:37 by Гость
Помоги плс срочно надо! (Pascal ABC) Найти среднеорифметическое всех простых чисел на отрезке от -А до В
Ответ оставил Гость
uses crt;procedure Prost(a:longint;var f:boolean);var i:longint;beginif 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, нет!);readlnend.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на