Объяснение:
var i,s:integer;
begin
i:=10;s:=0;
for i:=10 to 99 do
if i mod 2<>0 then s:=s+i;
writeln('Сумма нечетных 2-значных чисел(for)',s);
readln;
i:=10;s:=0;
while i<=99 do
begin
if i mod 2<>0 then s:=s+i;
i:=i+1;
end;
writeln('Сумма нечетных 2-значных чисел(while)',s);
readln;
i:=10;s:=0;
repeat
if i mod 2<>0 then s:=s+i;
i:=i+1;
until i>99 ;
writeln('Сумма нечетных 2-значных чисел(repeat)',s);
readln;
end.
Поделитесь своими знаниями, ответьте на вопрос:
7. а)получено сообщение информационный объем которого равен 32 би-там. чему равен этот объем в байтах? б) получено сообщение информационный объем которого равен 8388608 битам. чему равен этот объем в байтах, килобайтах, мегабайтах? 8. в) получено сообщение информационный объем которого равен 1, 5 мегабайта. чему равен этот объем в килобайтах, байтах, битах?
б) 8388608 / 8 = 1048576 байт
8388608 / 1024 = 1024 КБ килобайт
(8388608 / 1024) /1024 = 1 мегабайт
в) 1.5 * 1024 = 1536 килобайт
1.5 * 1024*1024=1572864 байт
1.5 * 1024*1024*8=12582912 бит