Написать программу для турбо паскаля: нахождение суммы цифр числа

";



NSString *sqlPath = [[NSBundle mainBundle] pathForResource:DB_BaseName ofType:@"sqlite"];

FMDatabase *myDB = [[FMDatabase alloc] initWithPath:sqlPath];



[myDB open];

// subgroupPicArray = [[NSMutableArray alloc] init];

a = selectYear;

b = selectVar;



if([selectYear isEqualToString:@""])

selectSQL = [NSString stringWithFormat: @"select text, question.sort, name from Question, main where main.key=question.key and var="%@"", selectVar];

else

selectSQL = [NSString stringWithFormat: @"select text, question.sort from Question, main where main.key=question.key and name="%@" and var="%@"", selectYear, selectVar];

FMResultSet *results = [myDB executeQuery:selectSQL];





while([results next]){

if([[results stringForColumn:@"Text"] isEqualToString:@""]){

myHTML = [NSString stringWithFormat: @"%@

",selectVar,[results stringForColumn:@"sort"]];

// Добавление картинок в тело письма

NSString *TestIMG = [results stringForColumn:@"sort"];

if (![TestIMG isEqual: @""]){

TestIMG =[NSString stringWithFormat: @"%@.jpg",TestIMG];

// TestIMG = [NSURL fileURLWithPath:[[NSBundle mainBundle] pathForResource:TestIMG ofType:@"jpg"]];

NSData *imageData = UIImageJPEGRepresentation([UIImage imageNamed: TestIMG],1);

[mc addAttachmentData:imageData mimeType:@"" fileName:TestIMG];

}

} else

// Формирование текста страницы просмотра

myHTML = [NSString stringWithFormat: @"%@

%@