Var E,P:decimal;
i,j:integer;
Begin
E:=0;
For i:= 3 to 8 do
Begin
P:=1;
For j:= 1 to 9 do
P:=P*sqr(i+j);
E:=E+P
End;
WriteLn('S = ',E);
End.
Девушка потратила в магазине 1458.04 рубля
Нужно десятичное число постоянно делить в столбик на 16 и потом делить делитель на 16. сейчас наглядно покажу.
331 будем переводить
вот как показано на фото делишь и потом записываешь число с конца(стрелочкой показано), но в 16 системе нет чисел 10,11,12,13,14,15
вместо них идут буквы
10-A
11-B
12-C
13-D
14-E
15-F
это надо помнить