begin
var m := 105;
var n := 15;
Println(1 + (m mod n) * (n mod m)); //1
end.
var
a:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
if a[i]<0 then a[i]=abs(a[i]);
for i:=1 to 10 do
write(a[i]);
end.
Корневой каталог- папка (главная )
Нумеруем цифры 101100001 справа налево с нуля, то есть:
1=0
0=1
0=2
0=3
0=4
1=5
1=6
0=7
1=8
и после этого умножаем по порядку справа налево цифру на систему кодировки(у нас двоичная, то есть 2) и возводим 2 в степень числа, что я писал выше.
1*2^0+0*2^1+0*2^2+0*2^3+0*2^4+1*2^5+1*2^6+0*2^7+1*2^8=1+0+0+0+0+32+64+0+256=353
а теперь вычитаем из 0.00001-353=−352.99999