Заполнить пропуски: а) 5 кбайт = =; б) = = 12288 бит;   в) = = 2048 бит; г) =1536 мбайт =; д) 512 кбайт = = . переведите: 16 бит =; 4 байта = 2, 5 байта =; 20 кб = 640, 7 кб =; 2035 байт = 2560 байт =; 512 кб = 0, 8 гб = 144, 31 мб = сравните (поставьте знак отношения> , < , =, ≠): 200 байт…….0, 25 килобайта; 3 байта…….24 бита; 1536 битов…….1, 5 килобайта; 1000 битов…….1 килобайт; сколько файлов размером 100 кбайт каждый можно разместить на носителе информации объемом: 1) 255 мб; 2) 1, 44 мбайт? сколько школьных учебников емкостью  350 кбайт  можно разместить на трехдюймовой дискете, если объем трехдюймовой дискеты –  1, 44 мбайт

ответ:

а) 5 кбайт = 5000 байт = 40'000 бит;

б) 1,536 кбайт = 1536 байт = 12288 бит;

в) 0,256 кбайт = 256 байт = 2048 бит;

г) 1,536 гбайт = 1536 мбайт = 1'536'000 кбайт;

д) 512 кбайт = 512'000 байт =   4'096'000 бит.

дальше сам переводи

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var a,n,i,s:integer;
begin
  write('Число элементов последовательности ');
  readln(n);
  for i:=1 to n do begin
    write(i,' элемент последовательности = ');readln(a);
    if (a mod 2 <>0) then s:=s+a;
  end;
  writeln('Сумма нечетных = ',s);
 end.

Тестовое решение:
Число элементов последовательности 5
1 элемент последовательности = 3
2 элемент последовательности = 2
3 элемент последовательности = 4
4 элемент последовательности = 1
5 элемент последовательности = 5
Сумма нечетных = 9

1. Если имеется в виду язык Pascal, то получим следующее:
var: a;
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
begin
  readln(a);
  b:=a+a;
  writeln (b);
end.

Program50.pas(5) : Неизвестное имя 'b'

2. Попробуем такой вариант на Python

a =int(input())
b = a+a
print(b)

При вводе а получим на выходе 10

Получается, что в Pacal требуется объявлять переменные в секции переменных, или в любом месте программы можно объявить переменную с служебного слова var для PascalABC.net. Первый код можно переписать так, и он будет работать:

var: a;
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
begin
  readln(a);
  var b:=a+a;
  writeln (b);
end.

Рузультат при введенном значении 5 равен 10