6. Заполните пропуски. 1) 1 байт = ?
битов
2) 128 битов =?
байтов
3) 32 байта = ?
битов
4) 1 Кбайт = ?
байта
5) 1,5 Кбайт = ?
байтов
6) 2048 байтов = ?
Кбайт
7) 81 920 битов = ?
Кбайт
8) 2 Мбайт = ?
Кбайт
9) 1,5 Мбайт = ?
байтов​

1.8 бит

2.16

3.265

4.1024

5. 1536

6. 2

7. 10

8.2048

9.1572864

program xxx;

    var i, s : integer;

begin

  s: =0;

  for i: = 10 to 99 do

      if i mod 5 = 0 then s: =s+i;

  writeln('сумма двузначных чисел, кратных 5 =', s);

  readln

end.

вот проверила, так работает. нормально?

program maxmin; var    a, b, c: integer;     max, min: integer; beginwriteln('введите три числа.'); read(a,b,c); {вводи числа через пробел}max: =a; if(b> max) then max: =b; if(c> max) then max: =c; min: =a; if(b< min) then min: =b; if(c< min) then min: =c; writeln('разность наибольшего и наименьшего чисел равна ',max-min); end.