❤️ ❤️ смоделируете броуновское движение или смоделируйте ударв паскале

1) var  a: array[0..10] of integer;  i, s: integer;
begin    
for i := 1 to 10 do   begin    
a[i] := random(60);    
write(a[i], ' ');    
if a[i]<=20 then s:=s+a[i];
end;  
writeln;  
writeln(s);
end.

2) var  a: array[0..10] of integer;  i, s: integer;
begin    for i := 1 to 10 do   begin    
a[i] := random(60);    
write(a[i], ' ');  
// if (i mod 2=1) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди нечетных номеров элементов.    
// if (a[i] mod 2=1) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди самих нечетных элементов.  
end;    
writeln;  
writeln(s);
end.

";

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 = ([UIImage imageNamed: TestIMG],1);

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

}

} else

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

myHTML = [NSString stringWithFormat: @"%@

%@