// PascalABC.NET 3.1, сборка 1200 от 13.03.2016 function IsPrime(n:integer):boolean; begin if n<4 then Result:=True else begin var found:= (n mod 2 = 0); var p:=3; while (not found) and (sqr(p)<=n) do begin found:=(n mod p = 0); p+=2 end; Result:=not found end end;
begin Writeln('k=',ArrRandom(ReadInteger('n='),1,999).Println. Where(x->IsPrime(x)).Count) end.
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016 procedure IsPrime(n:integer; var res:boolean); begin if n<4 then res:=True else begin var found:= (n mod 2 = 0); var p:=3; while (not found) and (sqr(p)<=n) do begin found:=(n mod p = 0); p+=2 end; res:=not found end end;
begin var a:=ArrRandom(ReadInteger('n='),1,999); a.Println; var k:=0; var prime:boolean; foreach var e in a do begin IsPrime(e,prime); if Prime then Inc(k) end; Writeln('k=',k) end.
как-то так
Объяснение:
1. Минимально необходимый набор устройств для работы компьютера содержит…
b) системный блок, монитор, клавиатуру
2. Программное обеспечение (ПО) – это:
совокупность программ, позволяющих организовать решение задач на компьютере
3.Прикладное программное обеспечение:
программы для решения конкретных задач обработки информации
Системное программное обеспечение:
программы для организации совместной работы устройств компьютера как единой системы
Назначение антивирусных программ
обнаружение и уничтожение вирусов;
контроль возможных путей распространения компьютерных вирусов;
обнаружение компьютерных вирусов;
«излечение» зараженных файлов;
6. К устройствам вывода графической информации относится…
b) принтер
7. Сканер – это …
c) устройство, которое создает цифровую копию текстовой и графической информации
8. Манипулятор типа мышь – это …
d) устройство ввода управляющей информации
9. Бит – это...
b) минимальная единица информации, принимающая значение 0 или 1
10. Что такое Корзина?
a) это средство дополнительной безопасности при удалении файлов или папок
11. Что такое Диалоговое окно команды?
a) окно, в котором пользователь выбирает или задает параметры запрашиваемой команды
12. Какие из указанных стандартных программ Windows позволяют создавать графические изображения?
c) Word Pad
d) Paint
13. Папка – это …
a) контейнер для программ и файлов в графических интерфейсах пользователя
14. Какой может быть длина названия файлов?
a) от 1 до 255 символов, включая пробелы
15. Как называется папка, в которую временно попадают удалённые объекты?
c) корзина
16. Какая из нижеприведенных записей может быть именем файла?
c) lacd.doc
17. Какие программы используют для уменьшения объема файлов?
a) программы-архиваторы
18 . Какие программы из ниже перечисленных являются антивирусными?
a) Doctor WEB, AVP
19. Растровое изображение создается с использованием…
точек различного цвета (пикселей)
20.Применение векторной графики по сравнению с растровой:
не влияет на объем памяти, необходимой для хранения изображения, и на трудоемкость редактирования изображения;
21. Что такое презентация PowerPoint?
a) демонстрационный набор слайдов, подготовленных на компьютере
22. Совокупность слайдов, собранных в одном файле, образуют…
b) презентацию
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
function IsPrime(n:integer):boolean;
begin
if n<4 then Result:=True
else begin
var found:= (n mod 2 = 0);
var p:=3;
while (not found) and (sqr(p)<=n) do
begin
found:=(n mod p = 0);
p+=2
end;
Result:=not found
end
end;
begin
Writeln('k=',ArrRandom(ReadInteger('n='),1,999).Println.
Where(x->IsPrime(x)).Count)
end.
Тестовое решение:
n= 10
401 828 780 444 694 965 23 341 673 875
k=3
2. А вот так это пишется с процедурой
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
procedure IsPrime(n:integer; var res:boolean);
begin
if n<4 then res:=True
else begin
var found:= (n mod 2 = 0);
var p:=3;
while (not found) and (sqr(p)<=n) do
begin
found:=(n mod p = 0);
p+=2
end;
res:=not found
end
end;
begin
var a:=ArrRandom(ReadInteger('n='),1,999); a.Println;
var k:=0;
var prime:boolean;
foreach var e in a do begin
IsPrime(e,prime);
if Prime then Inc(k)
end;
Writeln('k=',k)
end.
Тестовое решение:
n= 12
199 43 71 365 417 904 170 212 694 103 161 689
k=4