var
a : integer;
flag : byte;
s : string;
function HexToDec (s : string) : integer;
var
i, d, dig : integer;
res : integer;
begin
d := 1;
res := 0;
for i := length (s) downto 1 do
begin
dig := ord (s[i]);
if dig < 58 then res := res + (dig - 48) * d
else res := res + (dig - 55) * d;
d := d * 16;
end;
HexToDec := res;
end;
function DecToHex (a : integer) : string;
var
dig : integer;
c : char;
res : string;
begin
res := '';
repeat
dig := a mod 16;
if dig < 10 then c := chr (dig + 48)
else c := chr (dig + 55);
res := res + c;
a := a div 16;
until a = 0;
DecToHex := res;
end;
function Revert (s : string) : string;
var
i : integer;
r : string;
begin
r := '';
for i := length (s) downto 1 do
r := r + s[i];
Revert := r;
end;
begin
writeln ('Введите систему счисления, в которую переводим');
readln (flag);
if (flag = 16) then
begin
writeln ('Введите число в десятичной системе счисления');
readln (a);
writeln (Revert (DecToHex (a)));
end
else if (flag = 10) then
begin
writeln ('Введите число в шестнадцатиричной системе счисления');
readln (s);
writeln (HexToDec (s));
end
else writeln ('Ошибка : неверная система счисления');
readln;
end.
В статических моделях система представляется неизменной во времени.
http://info436.narod.ru/html/spravochnik_model3.html
1) 0,4 кг =400 гр -это 100% , 1%=400:100=4гр, следовательно 15% = 15*4=60 грамм,
60 гр составляют 1/5 часть конфет, значит 1 целая конфет = 60*5=300 гр. , тогда вес коробки= 400-300=100 гр.
2) аналогично:
50 кг - это 100%, тогда 1%=50:100=0,5 кг, отсюда 45%=0,5*45=22,5 кг и это половина всех конфет, значит все конфеты весили 22,5*2=45 кг, тогда ящик весит 50-45=5 кг
<span>3) 60 кг = 100%, 24%=60:100*24=14,4 кг-это четверть конфет, значит все конфеты весили 14,4*4=57,6 кг, тогда ящик весит 60-57,6=2,4 кг</span>
(3+x) - знаменатель
x - числитель
7x/3+x+8=3/4
3x+33=28x
25x=33;
x=1,32;
3+1,32=4,32;
1,32/4,32=132/432=33/108=11/36
Ответ: 11/36
<em>// PascalABC.NET 3.2, сборка 1362 от 14.12.2016</em>
<em>// Внимание! В других версиях языка работа не гарантируется!</em>
begin
var m:=ReadInteger('Количество строк в массиве:');
var n:=ReadInteger('Количество столбцов в массиве:');
Writeln('*** Исходный массив A[',m,',',n,'] ***');
var a:=MatrRandom(m,n,-50,50);
a.Println(4);
Writeln(4*a.ColCount*'-');
var k:=a.Rows.Select(x->x.Aggregate(0,(x,y)->x+y)).ToArray.IndexMax;
for var j:=0 to (n-1) div 2 do Swap(a[k,j],a[k,n-1-j]);
a.Println(4)
end.
<u>Пример</u>
Количество строк в массиве: 4
Количество столбцов в массиве: 5
*** Исходный массив A[4,5] ***
29 36 -50 -4 -32
-1 -10 -7 -47 -50
-16 4 48 -41 -43
8 46 45 14 -44
--------------------
29 36 -50 -4 -32
-1 -10 -7 -47 -50
-16 4 48 -41 -43
-44 14 45 46 8