4096\8=512
512\1024=0.5
<span>Значит будет 0,5 Кб</span>
Var
i,n,a:integer;
Begin
Writeln('Введите число');
Readln(n);
for i:= 1 to n do
a:=a+i;
Writeln('Квадрат суммы этих чисел равен ',sqr(a));
End.
Может, т. к он знает его свойства, характеристику и т.д.
Var n,s,i:integer;
begin
write('Введите число: ');
Readln(n);
s:=0;
for i:=1 to n do s:=s+i;
Writeln('s=',s);
<span>end.</span>