Question

PASCAL.ФУНКЦИИ.С клавиатуры вводятся два целых числа a и b. Найти и вывести на экран все простые числа, лежащие в диапазоне от a до b.

Answer 1

Function prost(a:integer):boolean;
Var i:integer;
Begin 
prost:=true; 
for i:= 2 to a-1 do 
if (a mod i) = 0 then
Begin
prost:=false;
break;
end;
End;

Var 
i,a,b:integer;
Begin 
write('Введите диапозон чисел (a,b) '); 
Readln(a,b); 
if a>b then write('Неверный диапозон') else  
for i:= a to b do   
  if prost(i) then write(i,' ');
End.    

Answer 2

решение работает, но он должно быть без boolean. только integer или real

Answer 3

Скорее всего не не должно быть, а я не знаю что такое Boolean