Program programma;
Uses crt;
var n,s,i: integer;
Begin clrscr;
write('Введите число N = ');
readln(n);
write('S=');
for i:=1 to n-1 do
begin
s:=s+sqr(i);
write(sqr(i),'+');
end;
s:=s+sqr(n);
write(sqr(n),'=', s);
End.
Ответ:
5
Объяснение:
31=2^4+2^3+2^2+2^1+2^0
10^4+10^3+10^2+10^1+10^0=11111
===== PascalABC.NET =====
type
reals = file of real;
procedure CreateReals(fn: string; var f: reals);
begin
Rewrite(f, fn);
for var i := 1 to 101 do
Write(f, Random(-50.0, 50.0));
f.Close
end;
function GetAverage(f: reals): real;
begin
Result := f.Elements.Average;
end;
function CountElements(f: reals; m: real) :=
f.Elements.Where(p -> p < m).Count;
begin
var f: reals;
var fn := 'Reals.bin';
CreateReals(fn, f);
Reset(f, fn);
var avg := GetAverage(f);
avg.Println;
CountElements(f, avg).Println
end.
Да в любой, SVG, PNG, JPEG и тд
Внизу скрин с полным списком форматов