Кол-во информации в современном обществе стремительно растет, человек оказывается нагруженном в море информации. Для того, что бы « не утонуть» в этом мире, необходимо обладать информационной культурой, т. е. знаниями и умениями в области информационных и коммуникационных технологий, а так же быть знакомым с юридическими и этическими нормами в этой сфере. В настоящее время, на пороге информационного общества, социальная значимость навыка письма ручкой снижается и, наоборот, социальная значимость навыков ввода информации с клавиатуры и работы с графическим интерфейсом приложений с мыши возрастает. Создание и редактирование документов с компьютера, т. е. овладение офисными информационными технологиями, становиться в информационном обществе необходимым умением. Современные информационные технологии позволяют включать в состав документов любые мультимедийные объекты (графику, звук, анимацию, видео). Дома можно привести в порядок фотоархив семьи, отсканировать старые фото и поместить их в упорядоченном виде в компьютерный альбом; в процессе обучения можем подготавливать реферат с иллюстрациями; в процессе профессиональной деятельности создавать компьютерные презентации о деятельности вашей в информационном обществе. В современном информационном обществе полезно получить первоначальные представление о назначении и возможностях компьютерной систем автоматизированного проектирования. В информационном обществе полезным является умение создавать базы данных, а так же вести в них поиск данных. Квалифицированный пользователь компьютера может на основе использования средств визуального объектно-ориентированного программирования создать необходимые ему специализированные приложения. Современному человеку необходимо овладеть коммуникативной культурой, т. е. умениями создавать и посылать эл. письма, находить нужную информацию во Всемирной паутине или файловых архивах, участвовать в чатах и т. д.
Function IsPrime(n: integer): boolean; // Проверка, является ли число простым var p: integer; found: boolean; begin found := (n mod 2 = 0); p := 3; while (not found) and (sqr(p) <= n) do begin found := (n mod p = 0); p := p + 2 end; IsPrime := (not found) or (p = 2) end;
const n = 20;
var i, k: integer; a: array[1..n] of integer;
begin Write('Введите 20 целых чисел через пробел: '); for i := 1 to n do begin Read(a[i]); end; k := 0; for i := 1 to n do if IsPrime(a[i]) then k := k + 1; Writeln('Количество простых чисел- ', k) end.
Тестовое решение:
Введите 20 целых чисел через пробел: 5 36 83 1673 339 73 34 14623 7 173 62 45 3463 326 28 934 345 24 4526 1143 Количество простых чисел- 6
Кол-во информации в современном обществе стремительно растет, человек оказывается нагруженном в море информации. Для того, что бы « не утонуть» в этом мире, необходимо обладать информационной культурой, т. е. знаниями и умениями в области информационных и коммуникационных технологий, а так же быть знакомым с юридическими и этическими нормами в этой сфере. В настоящее время, на пороге информационного общества, социальная значимость навыка письма ручкой снижается и, наоборот, социальная значимость навыков ввода информации с клавиатуры и работы с графическим интерфейсом приложений с мыши возрастает. Создание и редактирование документов с компьютера, т. е. овладение офисными информационными технологиями, становиться в информационном обществе необходимым умением. Современные информационные технологии позволяют включать в состав документов любые мультимедийные объекты (графику, звук, анимацию, видео). Дома можно привести в порядок фотоархив семьи, отсканировать старые фото и поместить их в упорядоченном виде в компьютерный альбом; в процессе обучения можем подготавливать реферат с иллюстрациями; в процессе профессиональной деятельности создавать компьютерные презентации о деятельности вашей в информационном обществе. В современном информационном обществе полезно получить первоначальные представление о назначении и возможностях компьютерной систем автоматизированного проектирования. В информационном обществе полезным является умение создавать базы данных, а так же вести в них поиск данных. Квалифицированный пользователь компьютера может на основе использования средств визуального объектно-ориентированного программирования создать необходимые ему специализированные приложения. Современному человеку необходимо овладеть коммуникативной культурой, т. е. умениями создавать и посылать эл. письма, находить нужную информацию во Всемирной паутине или файловых архивах, участвовать в чатах и т. д.
// Проверка, является ли число простым
var
p: integer;
found: boolean;
begin
found := (n mod 2 = 0);
p := 3;
while (not found) and (sqr(p) <= n) do
begin
found := (n mod p = 0);
p := p + 2
end;
IsPrime := (not found) or (p = 2)
end;
const
n = 20;
var
i, k: integer;
a: array[1..n] of integer;
begin
Write('Введите 20 целых чисел через пробел: ');
for i := 1 to n do
begin
Read(a[i]);
end;
k := 0;
for i := 1 to n do
if IsPrime(a[i]) then k := k + 1;
Writeln('Количество простых чисел- ', k)
end.
Тестовое решение:
Введите 20 целых чисел через пробел: 5 36 83 1673 339 73 34 14623 7 173 62 45 3463 326 28 934 345 24 4526 1143
Количество простых чисел- 6