1)Назовите систему, в которой для записи любых чисел используется всего один символ?
В) Унарная;
2)Устройство, обеспечивающее обмен информацией с контроллерами периферических устройств, называется:
Г) PCI-шина.
3). Какой из тегов HTML рисует горизонтальную линию?
hr
4) Какой из перечисленных языков программирования относится к низкоуровневым?
Г) Assembler.
5)Файлы с расширением .cvs используют для хранения:
Г) Изображений.
6)Файл размером 2000 Кбайт передаётся через некоторое соединение в течение 30 секунд. Определите размер файла (в Кбайт), который можно передать через это соединение за 12 секунд.
Пропорция 2000Кбайт / 30с * 12с = 800Кбайт
А) 800 Кбайт;
7)Переведите число 126 из десятичной системы счисления в двоичную систему счисления.
А) 1111110;
8)Укажите, что в электронных таблицах не применяется в формулах для ссылки на другие ячейки:
А) Гиперссылка;
<span><em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
procedure Fib(n:integer; var r:sequence of integer);
begin
if n<1 then exit; // нечего глупости задавать
case n of
1: r:=Seq(1);
2: r:=Seq(1,1);
else begin
r:=Seq(1,1);
var (p1,p2):=(1,1);
var p:integer;
loop n-2 do begin
p:=p1+p2;
r:=r+Seq(p);
(p1,p2):=(p2,p)
end
end
end
end;
begin
var s:sequence of integer;
var n:=ReadInteger('n=');
Fib(n,s);
s.Println
end.</span>
<u>Пример</u>
n= 8
1 1 2 3 5 8 13 21
Program help;
Var k, l,x,y: integer;
Begin
readln(k,l);
readln (x,y);
if y>k*x+l then
write ('точка лежит над прямой')
else
if y<k*x+l then
write ('точка лежит под прямой')
else
write ('точка лежит на прямой');
End.
///Pascal abc.
Самый простой способ (программа в файлике);
Проверка:
Введите число: 547
Результат: 745