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<k do begin if prost(i) then begin write(i,' '); n:=n+1; end; i:=i+1; end; end.
1. Это сведения, знания, сообщения о положении дел, которые человек воспринимает из окружающего мира с органов чувств (зрения, слуха, вкуса, обоняния, осязания). 2. Текстовая, числовая, графическая, звуковая, комбинированная. 3. Процессы получения, создания, сбора, обработки, хранения, накопления, поиска, представления, использования и распространения информации. Основные виды: хранение, передача, обработка информации. 4. Количество символов, используемых в алфавите. 5. Бит, байт, кбайт, мбайт, гбайт. 6. N = 2^i, где N - мощность алфавита; I - количество бит на символ. 7. Единицы измерения: 1 байт = 8 бит. 8. Информация, хранящаяся на внешнем носителе и объединенная общим именем. 9. Программы, которые обеспечивают управлением работы устройств и согласовании информационного обмена с другими устройствами. 10. Компьютерная программа, используемая для написания и модификации документов, компоновки макета текста и предварительного просмотра документов в том виде, в котором они будут напечатаны. 10. 32 бита = 4 байта, 2,5 кбайта = 2560 байта, 3 кбайта = 24576 бит, 6 байт = 48 бит.
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<k do
begin
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
2. Текстовая, числовая, графическая, звуковая, комбинированная.
3. Процессы получения, создания, сбора, обработки, хранения, накопления, поиска, представления, использования и распространения информации. Основные виды: хранение, передача, обработка информации.
4. Количество символов, используемых в алфавите.
5. Бит, байт, кбайт, мбайт, гбайт.
6. N = 2^i, где
N - мощность алфавита;
I - количество бит на символ.
7. Единицы измерения: 1 байт = 8 бит.
8. Информация, хранящаяся на внешнем носителе и объединенная общим именем.
9. Программы, которые обеспечивают управлением работы устройств и согласовании информационного обмена с другими устройствами.
10. Компьютерная программа, используемая для написания и модификации документов, компоновки макета текста и предварительного просмотра документов в том виде, в котором они будут напечатаны. 10. 32 бита = 4 байта, 2,5 кбайта = 2560 байта, 3 кбайта = 24576 бит, 6 байт = 48 бит.