Программа visual basic 1.разработайте программу которая будет вычислять площадь трапеции 2.создайте проект который изменит цвет и размер формы

1. dim a as integer dim b as integer dim h as integer         a = inputbox("введите а")         b = inputbox("введите b")         h = inputbox("введите h") '   c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 msgbox("площадь трапеции равна = " & ((a + b) * h) / 2)2.  me.backcolor =  vbblack   me.height = 500  me.width = 500

// pascalabc.net 3.1, сборка 1204 от 24.03.2016 begin   var lvl: =0;   var s: = 'ebeeeeebeeebeeeebeeeeeeebbeeeeeebbebeebbebbebeeeebbbbeebeeeeeeebeebbbeebbbeeeebbeebeeeebbebbbbebebee';   var prede: =false;   foreach var c in s do       if c='e' then begin           if prede then begin prede: =false; lvl+=1 end           else prede: =true           end       else           if c='b' then begin prede: =false; lvl+=1 end;   writeln(lvl,' level') end. результат выполнения программы 63 level и второй вариант, "как не учат в школе": // pascalabc.net 3.1, сборка 1204 от 24.03.2016 begin   var s: = 'ebeeeeebeeebeeeebeeeeeeebbeeeeeebbebeebbebbebeeeebbbbeebeeeeeeebeebbbeebbbeeeebbeebeeeebbebbbbebebee';   writeln(regex.matches(s,'e[eb]|b').count,' level') end. результат выполнения аналогичный.

Uses crt; var adr: array[1..10] of string; sub: array[1..10] of string; i,k: integer; s: string; begin; for i: =1 to 10 do begin; writeln('input town of ',i,'student'); readln(s); adr[i]: =adr[i]+s+' '; writeln('input street of ',i,'student'); readln(s); adr[i]: =adr[i]+s+' '; writeln('input house of ',i,'student'); readln(s); adr[i]: =adr[i]+s+' '; writeln('input apartament of ',i,'student'); readln(s); adr[i]: =adr[i]+s; if pos('краснодар',adr[i])< > 0 then begin; inc(k); sub[k]: =adr[i]; end; end; textcolor(4); writeln('result: '); for i: =1 to k do writeln(sub[i]); end.