Program exs;
var a, i, sum : integer;
begin
sum:= 0;
readln(a); {Считывание числа}
for i:= 1 to 4 do begin
sum:=sum + (a mod 10); {Находим остаток от деления на 10}
a:=a div 10; {Выкидываем найденную цифру из числа}
end;
writeln(sum);
end.
В 32 768 битах сожержится 4 килобайта: 32768 / 8 / 1024=4
Держи Turbo Pascal:
<span><span>uses crt;
var i: integer;
begin
clrscr;
for i:=1 to 10 do
writeln(i);
readln;
end.
</span></span>
Ответ:
Дискета, компакт-диск, жёсткий диск, оптический диск, флеш-накопитель.
Объяснение: