Монитор: вывод информации на экран
Клавиатура: ввод информации
Мышь: выбор информации (пример: выбрал папку и щелкнул по ней)
Процессор: обработка информации( и её кэширование)
Оперативная память: временное хранение информации в памяти ПК (пример: сидите в браузере или играете в игрушки та информация, которая на данный момент вы видите она находится в ОЗУ)
Жесткий диск: долговременное хранение информации, (путем её "резервирование" в памяти съемного носителя)
Принтер: вывод информации(пример: выводит текст на листок)
Наушники: вывод информации путем передачи сигналов через провод
Сканер: ввод информации (путем копирования данных с листа)
<h3>PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var e:=0.0001;
var x:=ReadReal;
var a:=(x-1)/x;
var (s,n):=(a,2);
repeat
a*=(x-1)/x*(n-1)/n;
s+=a;
n+=1
until a<=e/n;
Writeln(log(x),' ',s)
end.
Від програми в якому він створюється, редагується, зберігається.
var
B: array [1..14] of Real;
i: Integer;
s: Real;
begin
Randomize;
WriteLn ('Mассив:');
for i := Low (B) to High (B) do begin
B [i] := Random (100) - 50;
Write (B [i]:5:2, ' ');
end;
s := 0;
for i := Low (B) to High (B) do begin
if B [i] > 0 then
s := s + B [i];
end;
WriteLn;
WriteLn ('Сумма положительных элементов массива = ', s:5:2);
end.