Если "на сколько объем первого больше объема второго" - 0,5 кбайт = 1024 байта/ 2 = 612 байт (612 х 8 = 4896 бит) - объем первого собщения 500 байт (500 х 8 = 4000 бит) - объем второго сообщения 4896 - 4000 = 896 бит ответ: на 896 бит первое сообщение больше второго.
Program Strok; uses crt; const number=['0','1','2','3','4','5','6','7','8','9']; var A:array[1..10] of string; i,j,k:integer; s:string; begin {Ввод элементов массива} for i:=1 to 10 do begin write('Введите ',i,' элемент массива: '); readln(a[i]) end; {проверка условий} for i:=1 to 10 do {перебираем элементы массива} begin k:=0; {задаем триггер} s:=a[i]; for j:=length(s) div 2+1 to length(s) do if s[j] in number then k:=1; {Pascal позволяет обращаться со строковыми переменными, как с массивами символов, проверяем строку со второй половины на "вшивость", и, если встретилась цифра, вызываем срабатывание тригера} if k=0 then writeln(s) end; readln end.
Program Strok; uses crt; const number=['0','1','2','3','4','5','6','7','8','9']; var A:array[1..10] of string; i,j,k:integer; s:string; begin {Ввод элементов массива} for i:=1 to 10 do begin write('Введите ',i,' элемент массива: '); readln(a[i]) end; {проверка условий} for i:=1 to 10 do {перебираем элементы массива} begin k:=0; {задаем триггер} s:=a[i]; for j:=length(s) div 2+1 to length(s) do if s[j] in number then k:=1; {Pascal позволяет обращаться со строковыми переменными, как с массивами символов, проверяем строку со второй половины на "вшивость", и, если встретилась цифра, вызываем срабатывание тригера} if k=0 then writeln(s) end; readln end.
0,5 кбайт = 1024 байта/ 2 = 612 байт (612 х 8 = 4896 бит) - объем первого собщения
500 байт (500 х 8 = 4000 бит) - объем второго сообщения
4896 - 4000 = 896 бит
ответ: на 896 бит первое сообщение больше второго.