Пронумеруем программы:
1 - <span>умножить на 2
2 - </span><span>прибавить 1
</span>1. из числа 1 число 5
1 +1 = 2 (2)
2 * 2 = 4 (1)
4 + 1 = 5 (2)
Алгоритм: 212
2. из числа 1 число 50
1 + 1 = 2 (2)
2 + 1 = 3 (2)
3 * 2 = 6 (1)
6 * 2 = 12 (1)
12 * 2 = 24 (1)
24 + 1 = 25 (2)
25 * 2 = 50 (1)
Алгоритм: 2211121
2. из числа 1 число 99
1 + 1 = 2 (2)
2 + 1 = 3 (2)
3 * 2 = 6 (1)
6 * 2 = 12 (1)
12 * 2 = 24 (1)
24 * 2 = 48 (1)
48 + 1 = 49 (2)
49 * 2 = 98 (1)
98 + 1 = 99 (2)
Алгоритм: 221111212
Const n = 10;
var a:array[1..n]of integer;
min,imin,i,oldmin:integer;
begin
//Заполнение массива значениями в диапазоне
//от -100 до 100
//и одновременно находим минимальный элемент элемент
min:=100;
for i:=1 to n do begin
a[i]:=random(201)-100;
if a[i]<= min then
begin
min:=a[i];
imin:=i;//Запомним index минимального
end;
write(a[i]:5);
end;
writeln;
//В цикле сдвигаем элементы массива
//до индекса минимального включительно на
//одну позицию вправо
for i:=imin downto 2 do
a[i]:=a[i-1];
a[1]:=min;
//вывод элементов массива
for i:=1 to n do write(a[i]:5);
end.
Var
a,b,c:integer;
procedure main(a,b,c:integer);
var
i,max,nod:integer;
begin
if (a>b) and (a>c) then
max:=a
else
if (b>a) and (b>c) then
max:=b
else
max:=c;
nod:=1;
for i:=1 to max do
begin
if (a mod i = 0) and (b mod i = 0) and (c mod i = 0) then
nod:=i;
end;
writeln(nod);
end;
begin
read(a,b,c);
main(a,b,c);
end.
Ответ:
№1
1) Устройство вывода
2) Процессор
№2
1) Клавиатуры
2) Принтере
№3
Устройства ввода: клавиатура
Устройства вывода: монитор, наушники, принтер
№4
1) Веб-камера
2) Проектор
Объяснение:
№5
Операционная система изображена на первой картинке (Windows 7)
№6
1) Управление устройствами компьютера (ресурсами)
2) Ведение файловой структуры.
3) Пользовательский интерфейс, т.е. диалог с пользователем.
№7
Не могу разобрать сообщение (низкое качество фотографии)
№8
Wi-Fi
Bluetooth
USB
№9
Мобильность (удобство в использовании)
Легкость создания и расширения сети
№10
ИК-порт: телефон - компьютер
Bluetooth: беспроводные наушники\колонка - телефон
