===== PascalABC.NET =====
function RS(a: array of integer): integer;
begin
var n := a.Length;
Result := a[0];
if n > 1 then
Result += RS(a[1:])
end;
begin
var n := ReadInteger('Число слагаемых:');
var a := ReadArrInteger('Вводите:', n);
RS(a).Println
end.
<span>REM func</span>
<span>INPUT a,b,c</span>
<span>IF (a^2-b)*(c-b^2)<>0 THEN</span>
<span>D=(a^2-b)*(c-b^2)/3</span>
<span>PRINT D</span>
<span>ELSE</span>
<span>PRINT "Реш.нет"</span>
<span>END IF</span>
<span>End</span>
Может я не заметил, но вроде отсутствует переменная "creditum"
1. 456_8=4*64+5*8+6*1=256+40+6=302
2359_16=0010001101011001
13CF_16=1001111001111_2=11717
11212_3=2*1+1*3+2*9+1*27+1*81=2+3+18+27+81=131_10=203_8=83_16