Sum:=0;
for i:=55 downto 42 do sum:=sum+i;
Var a,b,c: integer;
begin
readln(c);
c:=a+b;
writeln(c);
end.
Ответ: 2.
Так как если настоящий элемент меньше элемента с индексом k (при первой проверке - индексом первого элемента), то запоминаем индекс этого элемента.
2 Мб = 2048 кБ
2 Гб = ( Если Мегабит ) = 16384 ( Если Мегабайт ) = 2048
2 Tб = 2048 Гб