Я бы посоветовал:
1) Если Delphi 7, то могут быть проблемы с русскими наименованиями таблиц/столбцов в БД (у самого так было).
2) Я бы по другому запрос написал, примерно так:
SELECT * FROM infa WHERE familia >= +QuotedStr(help2) (в конце уже не помню как там в делфи надо, чтоб переменную в запрос добавить)
Надеюсь помог, удачи.
32 буквы. 32=2^5
Информационный объем одного символа русского алфавита равен <span>1) 5 бит.</span>
Program chisla;
uses crt;
var a,b,c : integer;
begin
Write('Введите два числа: ');
Readln(a,b);
if a>b then c:=a-b else c:=b-a;
Writeln('Разность чисел равна ',c);
end.
Const
m=5;
n=7;
var
a:array[1..m,1..n] of integer;
i,j,amax:integer;
p:real;
begin
Randomize;
Writeln('Исходный массивэ');
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=Random(90)+10;
Write(a[i,j]:3)
end;
Writeln
end;
{Задача 1}
amax:=a[1,1];
for i:=1 to m do
for j:=1 to n do
if a[i,j]>amax then amax:=a[i,j];
Writeln('Максимальный элемент равен ',amax);
{Задача 2}
p:=1;
for i:=1 to m do
for j:=1 to n do
if a[i,j] mod 2=0 then p:=p*a[i,j];
Writeln('Произведение четных элементов равно ',p);
end.
Пример работы
Исходный массивэ
94 20 49 80 70 55 40
62 74 71 51 88 10 76
68 11 11 74 96 50 69
98 34 25 93 52 53 61
68 85 35 15 77 78 97
Максимальный элемент равен 98
Произведение четных элементов равно 2.86826492979212E+33
Ответ: 1 - 9,6 GB; 2 - 0,21 MB.
Объяснение: На фото.