Предмет: Информатика, автор: Anfisa1000

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

Ответы

Автор ответа: Аноним
0
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.    
Автор ответа: Anfisa1000
0
решение работает, но он должно быть без boolean. только integer или real
Автор ответа: Аноним
0
Скорее всего не не должно быть, а я не знаю что такое Boolean
Похожие вопросы
Предмет: Геометрия, автор: sparrow72
Предмет: Математика, автор: Aiman971