512кб=512×1024×8бит=4194304бит
4194304/(512×1024)=8бит
N=2^8=256 символов
var N,N1,s:integer;
BEGIN
writeln('Введите целое число:');
readln(N);
N1:=N;
while N<>0 do begin
s:=s+N mod 10;
N:=N div 10;
end;
writeln('Сумма цифр числа ',N1,' равна ',s,'.');
end.
Если ты читала то вроде как Остапа
Сори я просто не помню давно читал