Дана строка, состоящая из слов, разделённая в некоторых местах запятыми. поменять местами фрагменты строки, разделённые запятыми. решить в pascal.

//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) изображение занимает объём в 60000 байт (или 58.59375 Кбайт).

№2) изображение занимает объём 1406,25 Кбайт (или 1.373 Мбайт).

№3) необходим объём видеокарты в 1,5 Мбайта.

Объяснение:

№1.

Дано:
K = 600 x 800 пикселей

N = 2

Найти: I
Решение:

N = 2^i

2 = 2^i  <=>  i = 1 бит/пиксель

I = K * i

I = 600 * 800 пикселей * 1 бит/пиксель = 480000 бит

I = 480000 / 8 = 60000 байт

ответ: I = 60000 байт.

№2.

Дано:

K = 600 x 800 пикселей

i = 24 бит/пиксель

Найти: I

I = K * i

I = 600 * 800 пикселей * 24 бит/пиксель = 11520000 бит

I = 11520000 / 8 / 1024 Кбайт = 1406,25 Кбайт

ответ: I = 1406,25 Кбайт.

№3.

Дано:

K = 1024 x 768 пикселей

N = 65536 цветов

Найти: I

N = 2^i

65536 = 2^i

2^16 = 2^i  <=>  i = 16 бит/пиксель

I = K * i

I = 1024 * 768 пикселей * 16 бит/пиксель = 12582912 бит

I = 12582912 / 8 / 1024 / 1024 Мбайт = 1,5 Мбайт

ответ: I = 1,5 Мбайт.