Начертите на бланке (или создайте в СУБД MS Access) структуру базы данных «Домашняя школа», содержащую сведения об учениках школы. Укажите необходимые имена полей и их типы данных. Задайте ключевое поле

144 162 2 //pascalabc.net 3.1 сборка 1200 begin   var k : = 0;     for var i : = 132 to 188 do   begin       var n : = i;             while n mod 2 = 0 do           n : = n div 2;       while n mod 3 = 0 do           n : = n div 3;             if n = 1 then begin           k += 1;           writeln(i);       end;   end;     writeln(k); end.

1. консольное приложение: module module1       sub main()               dim n, i, s as integer               console.write("введите число n")               n = console.readline               s = 0               for i = 1 to n                       s = s + i * i               next               console.write(s)               n = val(console.readline)       end sub end module 2. приложение windows forms: на форме 3 объекта: textbox1 - для ввода n textbox2 - для вывода суммы квадратов button1 - чтобы запустить процесс вычислений public class form1       private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.click               dim i, s as integer               s = 0               for i = 1 to val(textbox1.text)                       s = s + i * i               next               textbox2.text = s       end sub end class