60 ! 1. на бланке создать структуру таблицы базы данных «ученик», содержащую следующие поля: фамилия, имя, школа, класс, дата рождения, вес. определить и начертить 2 таблицы: 1) с указанием типов и формата полей; 2) с заполненными 5 записями. определить первичный ключ таблицы. отметить его в начерченной ранее таблице. 3. добавить в структуру таблицы после поля «дата рождения»поле «рост». начертить вновь полученную таблицу. указать тип данных для поля «рост». описать, какие действия нужно выполнить для добавления поля в таблицу базы данных. 4. описать способы удаления из структуры таблицы поля «вес». описать способы удаления из таблицы второй и пятой записи.

uses crt; var n,i: integer; a: array[1..1000] of integer; beginread(n); for i: =1 to n do read(a[i]); for i: =1 to n do beginif a[i]< 0 then a[i]: =abs(a[i]); for i: =1 to n do write(a[i],' '); end.

1)

vara, b: integer;

beginreadln(a, b); if (a div 10 + a mod 10) > (b div 10 + b mod 10) thenwriteln('сумма цифр ', a, ' больше')elsewriteln('сумма цифр ', b, ' больше'); end.

2)

vara: integer;

beginreadln(a); writeln((a mod 10) * 10 + a div 10); end.

3)

vara: integer;

beginreadln(a); if ((a div 100) = (a mod 100) div 10) or ((a div 100) = (a mod 10)) or ((a mod 100) div 10 = (a mod 10)) thenwriteln('есть 2 одинаковые цифры')elsewriteln('нет 2-х одинаковых цифр'); end.

var kol,a,b,c: longint;

begin

  read(a,b,c);

  if a< 0 then kol: =kol+1;

  if b< 0 then kol: =kol+1;

  if c< 0 then kol: =kol+1;

  write(kol);

end.

var a,res: integer;

begin

writeln('введите число');

readln(a);

res: =sqr(a);

writeln('квадрат числа,'a', равен,'res',');

readln;

end.