Program n1; var n,i :integer; a,s:real; begin s:=0; writeln('целое число N=?'); read (n); writeln ('число а?'); read(a); for i:=1 to n do s:=s+i*a; writeln('сумма=',s) end.
Если для кодирования отводится 8 бит то решение такое 1 символ = 1 байт каждая строка состоит из 64 символа, значит 64 симв.*1 байт=64 байт - в одной строке. на каждой странице 40 строк значит: 64*40=2560 байт на одной странице. если у нас 8 страницы, то получаем: 2560*8=20480 байт, 1 кбайт = 1024 байт, т.е 20480 байт / 1024 = 20 кбайт. Но в ваших данных написано, что объем статьи 25 кбайт. тогда рассмотрим обе объема и переведем их в бит 20 кбайт * 1024 байт = 20480 байт. 20480 байт * 8 бит = 163840 бит
var n,i :integer; a,s:real;
begin
s:=0;
writeln('целое число N=?');
read (n);
writeln ('число а?');
read(a);
for i:=1 to n do
s:=s+i*a;
writeln('сумма=',s)
end.