<u>PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
for var i:=1 to 100000 do begin
var s:=0;
for var j:=1 to i div 2 do
if i mod j=0 then s+=j;
if s=i then Print(i)
end;
Writeln
end.
<em>Результат</em>
6 28 496 8128
Любые два взаимодействующих предмета в природе образуют систему. Такое понятие системы. Если говорится об устройствах до сборки, то если они хотябы соприкосаются, то они уже образуют систему. Если не придираться к словам и понятиям, то до сборки они не образуют систему, после сборки образуют систему, а после включения никаких изменений не происходит, т.к. система уже образована, из устройств компьютера.
Разумеется это так, потому что мы можем из перекодированного значения вернутся обратно к декодированному , поэтому однозначно ответ да
2) обозначение некоторой величины ( не точно)
Program znanija3;
var i, number:integer;
begin
number:=0;
while i <> 10 do begin
Inc(number);
if (number mod 10) = 7 then begin
writeln(number);
Inc(i);
end;
end;
end.
P.S. Inc(number) = number:= number+1