Pascal ABC
Объяснение:
function Armstrong(isarm: longint): boolean;
var m, p, s: integer;
a, b: array[1..100] of integer;
begin
s := 0;
m := isarm;
p := 0;
while m <> 0 do begin
inc(p);
a[p] := m mod 10;
m := m div 10
end;
for var i := 1 to p do begin
b[i] := 1;
for var j := 1 to p do
b[i] *= a[i];
s += b[i];
end;
if s = isarm then Armstrong := true else Armstrong := false;
end;
var kol: integer;
begin
WriteLn('Введите размер массива: '); var n := ReadInteger;
WriteLn('Введите элементы массива по одному: '); var a := ReadArrInteger(n);
WriteLn('Числа Армстронга: ');
for var i := 0 to n - 1 do
if Armstrong(a[i]) then begin
Write(a[i], ', '); inc(kol);
end;
WriteLn();
WriteLn('Количество чисел Армстронга в массиве равно ', kol);
end.
Ручное копирование - это создание копии ваших файлов и папок на дополнительном носителе информации но делается это в ручную (внешнем жестком диске, CD/DVD-диске, флэшке, в облачном хранилище и т.д.).
Резервное копирование - (англ. backup copy) — процесс создания копии данных на носителе (жёстком диске, дискете и т. д.), предназначенном для восстановления данных в оригинальном или новом месте их расположения в случае их повреждения или разрушения.
Зеркалирование — дублирование пакетов одного порта сетевого коммутатора (или VPN) на другом. Большое количество управляемых сетевых коммутаторов позволяют дублировать трафик от одного или нескольких портов и/или ВЛВС (VLAN) на отдельно взятый порт.
может быть. я не знаю.