Я бы посоветовал:
1) Если Delphi 7, то могут быть проблемы с русскими наименованиями таблиц/столбцов в БД (у самого так было).
2) Я бы по другому запрос написал, примерно так:
SELECT * FROM infa WHERE familia >= +QuotedStr(help2) (в конце уже не помню как там в делфи надо, чтоб переменную в запрос добавить)
Надеюсь помог, удачи.
Первая
var n,a:integer;
begin
a:=0;
WriteLn(n);
while n>0 do
begin
a:=a + (n mod 10);
n:=n div 10;
end;
end.
Вторая
var n,a:integer;
begin
a:=0;
WriteLn(n);
while n>0 do
begin
if n mod 10>5 then
begin
a:=a + (n mod 10);
end;
n:=n div 10;
end;
end.
Существует 9 различных путей:
ACF
AEF
ADF
ABDF
AECF
ADEF
ADECF
ABDEF
ABDECF
16. а) 101010+1101=110111 б) 1010+1010=10100 в) 10101+111=11100
17. а) 1010*11=11110 б) 111*101=11011 в) 1010*111=1100110
<span>141141 - Мама 1429131 - мыла 1811421 - раму
ответ А)</span><span>Мама мыла раму</span>