var i: integer; s: real; begin write('S='); for i:=2 to 9 do begin s:=s+exp((i*2+1)*ln(8)); write('8^',i*2+1,'+'); end; s:=s + exp((21)*ln(8)); writeln('8^21=',s); end.
//Pascal ABC.NET Версия 2.2 Сборка 790 var ma:array[1..10,1..10] of integer; ar:array[1..10] of integer; i,j,s:integer; begin; randomize; writeln('Matrix:'); for i:=1 to 10 do begin; writeln; for j:=1 to 10 do begin; ma[i,j]:=random(-10,10); write(ma[i,j]:5); if ma[i,j]<0 then ar[i]+=ma[i,j]; end; end; writeln; writeln('Final array:'); for i:=1 to 10 do writeln(ar[i]); end.
Запишем вычисление суммы "в столбик", помня, что вычисления проводятся в системе счисления по некоторому основанию n>7. Почему именно n>7? Потому, что если бы основание системы было равно или меньше семи, в записи числа цифра семь не могла бы существовать. 12 + 17
31 В младшем разряде 2+7=1, чего быть не может, следовательно, 2+7=11 и единица пошла в старший разряд. Подтверждение этому мы видим при сложении в старшем разряде: 1+1+1=3 (учтена единица от переноса). Мы знаем, что 2+7=9 в десятичной системе счисления, а у нас получилось 11. Находим разницу: 11-9=2. Именно на столько основание системы счисления меньше десяти. 10-2=8. Следовательно, система счисления восьмеричная. ответ: в восьмеричной системе счисления.
uses crt;
var i: integer;
s: real;
begin
write('S=');
for i:=2 to 9 do begin
s:=s+exp((i*2+1)*ln(8));
write('8^',i*2+1,'+');
end;
s:=s + exp((21)*ln(8));
writeln('8^21=',s);
end.