Pascal.функции.с клавиатуры вводятся два целых числа a и b. найти и вывести на экран все простые числа, лежащие в диапазоне от a до b.

133

166

Посмотреть ответы 2

Ответы на вопрос:

kosyamosya03

Информатика

4,4(50 оценок)

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.