1. Информационные ресурсы – это … а) общественно значимая информация б) товар, который нельзя продать в) компьютерные технологии г) информационные услуги 2. Как называется пpогpамма, котоpая загpужается пpи включении компьютеpа? а) пpикладной программой б) системой программирования в) вс программой г) опеpационной системой 3. Выберите устройство для подключения компьютера к телефонной линии с целью передачи и приема информации на далекое расстояние. а) сетевая карта б) модем в) видеоадаптер г) сенсорная панель 4. Выберите устpойства вывода инфоpмации. а) дисковод б) монитоp в) пpинтеp г) сканер д) клавиатура е) плоттер 5. Алфавит содержит 256 символов. Каков информационный объём сообщения из 1024 символов? а) 1 Килобайт; б) 8 Килобит; в) 1024 бита; г) 213 байт д) 213 бит. 6. В ячейке В1 записана формула =А$1*$А1. Какой вид приобретет формула, после того как ячейку В1 скопируют в ячейку D2? а) =A$1*$А2 б) =С$1*$C2 в) =С$1*$А2 г) =С$2*$C2
Так как язык не указан, приведу пример на SWI-Prolog.
Код:
read_int(Int) :- read(Int), integer(Int).split_int_by_numbers(0, []) :- !.split_int_by_numbers(N, [Number|Ints]) :- Number is mod(N, 10), RestN is div(N, 10), split_int_by_numbers(RestN, Ints).test_to_div(_, []).test_to_div(N, [Number|Ints]) :- mod(N, Number) =:= 0, test_to_div(N, Ints). test(Int) :- split_int_by_numbers(Int, Numbers), test_to_div(Int, Numbers), write(Int), write(" - Yes!"), nl.test(Int) :- write(Int), write(" - No!"), nl.?- read_int(Int), test(Int).// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
var a:=ArrRandom(ReadInteger('n='),0,2); a.Println;
a.Sorted.Println
end.
Тестовое решение:
n= 15
1 2 0 2 2 0 2 0 2 0 0 1 0 0 2
0 0 0 0 0 0 0 1 1 2 2 2 2 2 2
2. Но, поскольку считается, что школьникам больше заняться нечем, их заставляют писать примерно в таком стиле (и время займет, и ощибок понаделают):
// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
const
nn=100;
var
i,j,n,t:integer;
a:array[1..nn] of integer;
begin
Write('n='); Read(n);
Randomize;
for i:=1 to n do begin
a[i]:=Random(3);
Write(a[i],' ')
end;
Writeln;
for i:=1 to n-1 do
for j:=1 to n-1 do
if a[j]>a[j+1] then begin
t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t
end;
for i:=1 to n do Write(a[i],' ');
Writeln;
end.
Тестовое решение:
n=15
0 1 1 0 2 1 0 2 1 2 1 0 0 2 0
0 0 0 0 0 0 1 1 1 1 1 2 2 2 2