1)Алгоритмом можно считать: Варианты ответа:
перечень товаров и услуг
схему рассадки зрителей в кинотеатре
установку программного обеспечения на компьютере
технический паспорт аппаратного обеспечения компьютера
2)
Какая цепочка будет являться результатом работы данного алгоритма: 1. Вычисляется длина (в символах) данной цепочки символов. 2. Если длина исходной цепочки нечётна, то к исходной цепочке слева приписывается цифра 8, иначе цепочка не изменяется. 3. Символы попарно меняются местами (1-й - со 2-м, 3-й - с 4-м и т.д.). 4. Справа к полученной цепочке приписывается цифра 1. Исходная цепочка: @$A
Варианты ответа:
[email protected]$A8
@8A$1
@8$A1
[email protected]$1
3)"Только выполнив текущую команду, исполнитель может приступить к выполнению следующей команды". Как называется такое свойство алгоритма?
Варианты ответа:
дискретность
понятность
определённость
результативность
4)
Система команд исполнителя Вычислитель состоит из двух команд, которым присвоены номера: 1) Вычти 3; 2)Умножь на 2. При записи алгоритмов для кратности указываются лишь номера команд. С какого алгоритма число 2 будет преобразовано в число 20?
Варианты ответа:
22212
21222
22221
22122
5)
Какой из объектов не может быть исполнителем алгоритмов?
Варианты ответа:
автоматическая стиральная машина
человек
компьютер
заяц
6)
Исполнителю ЧЕРЕПАШКА был дан для исполнения следующий алгоритм: ПОВТОРИ 10 [ВПЕРЁД 10 НАПРАВО 90]. Какая фигура появится на экране?
Варианты ответа:
квадрат
правильный пятиугольник
незамкнутая ломаная линия
правильный десятиугольник
7)
Исполнитель РОБОТ стоит под верхним левым краем горизонтальной стены. Длина стены неизвестна. Ему необходимо закрасить клетки под стеной. Какой тип цикла ему необходимо выполнить:
Варианты ответа:
цикл с заданным условием продолжения работы-1
цикл с заданным условием времени работы
цикл с заданным числом повторений
цикл с параметром
8)
Исполнитель РОБОТ находится под горизонтальной стеной (см. рис.). Длина стен неизвестна. Какое условие надо написать после команды НЦ ПОКА..., чтобы РОБОТ закрасил участок как на рисунке и не разбился?
Варианты ответа:
сверху стена
снизу свободно
слева стена
слева свободно
9)
Среди 8 монет одна фальшивая. Она легче настоящей. Какое минимальное число взвешиваний необходимо на весах с двумя чашками без гирь, чтобы определить фальшивую монету?
Варианты ответа:
4
8
5
3
var
n:integer;
begin
readln(n);
if(n<0)then write(0)
else write(n+4);
end.
2)
var
a, b: integer;
begin
readln(a, b);
if(a = b) then
write(1)
else
write(0);
end.
3)
var
a, b, c, s: integer;
begin
s := 0;
readln(a, b, c);
if(a >= 0) then s := s + 1;
if(b >= 0) then s := s + 1;
if(c >= 0) then s := s + 1;
write(s);
end.
4)
var
a, b, c, s: integer;
begin
s := 0;
readln(a, b, c);
if(a > 0) then s := s + a;
if(b > 0) then s := s + b;
if(c > 0) then s := s + c;
write(s);
end.
5)
var
a, b, c: integer;
begin
readln(a, b, c);
if (a < b) then swap(a, b);
if (a < c) then swap(a, c);
if (b < c) then swap(b, c);
write(a, ' ', b, ' ', c);
end.
6)
var n, k, s, i: integer;
begin
s := 0;
readln(n, k);
for i := 1 to n.ToString.Length do
if(strtoint(n.ToString[i]) > k) then s := s + strtoint(n.ToString[i]);
write(s);
end.
7)
var n, s, i: integer;
begin
s := 0;
readln(n);
for i := 1 to n do
s := s + i;
write(s);
end.
9)
var n, i: integer;
begin
readln(n);
for i := n downto 1 do
write(i);
end.
12
var
n, i: integer;
s: real;
begin
s := 0;
readln(n);
for i := n downto 1 do
s:=s+(0.1*i);
write(s);
end.
13)
var n, i: integer;
begin
readln(n);
for i := 1 to n do
write(sqr(i), ' ');
end.
14)
var
n, i, c: integer;
begin
i := 1;
c := 0;
readln(n);
while (c <> n) do
begin
if(i mod 3 = 0) then begin write(i, ' ');c := c + 1; end;
i := i + 1;
end;
end.
15)
var
n, i, a: integer;
c: real;
begin
i := 1;
c := 0;
readln(n);
for i := 1 to n do
begin
read(a);
c := c + a;
end;
write(c / n)
end.
16)
var
n, i, a: integer;
begin
i := 1;
while true do
begin
read(a);
if(a = 0) then break;
n := n + 1;
end;
write(n)
end.