var a,i,r: integer;
begin
r:=1;
for i:=1 to 3 do
begin
write('Введите ',i,' число ');
readln(a);
r:=r*a
end;
write ('Произведение = ',r);
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: беспроводные наушники\колонка - телефон
Чтобы применить фильтр на основе значений полей, снимите флажки рядом со значениями, для которых не нужно применять фильтр, а затем нажмите кнопку ОК.
Чтобы отфильтровать один или несколько значений из длинного списка, сначала снимите флажок (выделить все) , а затем выберите нужные значения.
Чтобы отфильтровать значения NULL (значение NULL указывает на отсутствие данных) в тексте, числе и полях даты: в списке флажков снимите флажок (выделить все) , а затем установите флажок рядом с надписью (пустые).
Чтобы применить общий фильтр, наведите указатель на пункт текст (или число или Дата) и выберите нужный фильтр. Фильтры, такие как " равно " и " между " и "запрашивать", чтобы ввести необходимые значения.
var a: array[1..3] of integer;
var answ, i: integer;
begin
writeln('Введите 1 число');
readln(a[1]);
writeln('Введите 2 число');
readln(a[2]);
writeln('Введите 3 число');
readln(a[3]);
answ:=1;
for i:=1 to 3 do answ:=answ*a[i];
writeln ('Произведение: ',answ);
end.
не тестировала, но вроде должно работать