Переведите в байты 15 кбайт , 256 кбайт, 2500 кбайт, 72 кбайт , 340 кбайт, 7 кбайт. переведите в мегабайты 50331648 байт, 56320 байт, 90 гбайт. определите кол. информации в книге набраной на компьютере: книга содержит -40 строк , в каждой строке, 60 символов запишите ответ в наиболее

15 кбайт-15360 байт
256 кбайт-262144 байт
2500 кбайт-2560000 байт
72 кбайт-73728 байт
340 кбайт-356515840 байт
7 кбайт-7516192768 байт

50331648 байт- 48
56320 байт-0.0537109375.
90 гбайт-92160

1500•40•60-kol-vo байт
ANSI ASCII и KOI-8
дели на 1024-(Кб) и на 1024-(Мб)
ответ: 3,43 (Мб).

С оператора mod можно получить от исходного числа единичный разряд, если делить число на 10, т.е. 123 mod 10 = 3, 524 mod 10 = 4. Если делить на сто, то можно получить еще и десятки: 123 mod 100 = 23, 524 mod 100 = 24.

С оператора div можно отбросить от числа разряды: 123 div 10 = 12, 123 div 100 = 1

Пример программы на языке PascalABC.Net:

var a, b: integer;

begin

   write('Введите двузначное число: ');

   readln(a);

   write('Введите трехзначное число: ');

   readln(b);

   writeln();

   

   writeln('Двузначное число ', a, ': ');

   writeln('Десятки: ', a div 10);

   writeln('Единицы: ', a mod 10);

   writeln();

   

   writeln('Трехзначное число ', b, ': ');

   writeln('Сотни: ', b div 100);

   writeln('Десятки: ', b div 10 mod 10);

   writeln('Единицы: ', b mod 10);

end.

1)

var a: array [1..9] of integer;

begin

   for var i := 1 to 9 do

   begin

       write('Введите ', i, ' элемент: ');

       readln(a[i]);

   end;

   var sum := 0;

   for var i := 1 to 9 do

       if a[i] > 45 then

           sum += a[i];

           

   writeln('Сумма: ', sum);

end.

2)

var a: array [1..9] of integer;

begin

   for var i := 1 to 9 do

   begin

       write('Введите ', i, ' элемент: ');

       readln(a[i]);

   end;

   var sum := 0;

   for var i := 1 to 9 do

           sum += a[i];

           

   writeln('Сумма: ', sum);

end.

3)

var a: array [1..9] of integer;

begin

   for var i := 1 to 9 do

   begin

       a[i] := random(-10, 10);

       write(a[i], ' ');

   end;

   writeln();

   var min := a[1];

   for var i := 2 to 9 do

       if (a[i] mod 2 <> 0) and (a[i] < min) then

           min := a[i];

           

   writeln('Min: ', min);

end.