Var
A,B:integer;
S:real;
Begin
Write('A = ');
ReadLn(A);
Write('B = ');
ReadLn(B);
S:=0;
For B:= A to B do
S:=S+B*B;
WriteLn('S = ',S);
End.
var n,i,a,s:integer;
begin
write('n = ');
readln(n);
s:=0;
writeln('Введите ',n,' натуральных чисел');
for i:=1 to n do
begin
read(a);
if a div 100=4 then s:=s+a;
end;
writeln('s = ',s);
end.
Пример
n = 5
Введите 5 натуральных чисел
123 456 4321 45 401
s = 857
X - сколько бит весит один символ
2^x - мощность алфавита
8*256*х бит = 0.25*1024*8 бит
х = 0.25*1024*8 /8/256 = 1 бит
2^1 = 2 - мощность алфавита
Ответ:32768
Объяснение:1024•8•1024/256