Информатика о тех, кто шарит в этой сфере. написать программу на языке pascal. текст ниже.

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.

не тестировала, но вроде должно работать

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 указывает на отсутствие данных) в тексте, числе и полях даты: в списке флажков снимите флажок (выделить все) , а затем установите флажок рядом с надписью (пустые).

Чтобы применить общий фильтр, наведите указатель на пункт текст (или число или Дата) и выберите нужный фильтр. Фильтры, такие как " равно " и " между " и "запрашивать", чтобы ввести необходимые значения.