Вопрос по информатике:
Простые числа - это натуральные числа, которые делятся без остатка только на себя и на единицу: 2, 3, 5, 7, 11...
1) Разработайте программу, которая вводит число К и проверяет, является ли оно простым.
2) Разработайте программу, которая вводит натуральные числа А и В и выводит все заключённые между ними простые числа.
3) Разработайте программу, которая вводит с клавиатуры число К и выводит первые К простых чисел.
- 24.01.2016 07:38
- Информатика
- remove_red_eye 1121
- thumb_up 28
Ответы и объяснения 1
var k,i,n:integer;
begin
write('k = '); readln(k);
n:=0;
for i:=2 to round(sqrt(k)) do
if k mod i= 0 then n:=n+1;
if n=0 then writeln(k,' - простое число')
else writeln(k,' - составное число');
end.
Пример:
k = 23
23 - простое число
2)
var a,b,i:integer;
function prost(n:integer):boolean;
var j,m:integer;
begin
m:=0;
for j:=2 to trunc(sqrt(n)) do
if n mod j = 0 then inc(m);
prost:=m=0;
end;
begin
readln(a,b);
writeln('Простые числа:');
for i:=a to b do
if prost(i) then write(i,' ');
end.
Пример:
10 30
Простые числа:
11 13 17 19 23 29
3)
var k,i,n:integer;
function prost(n:integer):boolean;
var j,m:integer;
begin
m:=0;
for j:=2 to trunc(sqrt(n)) do
if n mod j = 0 then inc(m);
prost:=m=0;
end;
begin
readln(k);
i:=2; n:=0;
writeln('Простые числа:');
while n
if prost(i) then begin write(i,' '); n:=n+1; end;
i:=i+1;
end;
end.
Пример:
10
Простые числа:
2 3 5 7 11 13 17 19 23 29
- 25.01.2016 03:20
- thumb_up 49
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.