Ввести целое число и найти сумму его цифр. пример: введите целое число: 1234 сумма цифр числа 1234 равна 10.

Var i,number: integer;       sum: real; begin  sum: =0.0;     write('write number: ');   readln(number);   while( number > 0 ) do  begin    sum: = sum + ( number mod 10 );       number: =number div 10;   end;   writeln(sum); end.

1) + записи не связанны между собой     - записи не связанны между собой - трудно составлять иерархические структуры 2) + защита от дурака - нельзя сделать нестандартную операцию 3) запись - это строка таблицы, поле - это ячейка таблицы 4) смотря какая именно база. обычно строка, число, число с запятой, дата, время, дата и время, бинарный обьект, логическое поле 5)да, су - это система , но без нее бд почитай бесполезна 6) какие напишешь такие и будут, ms access например, почтовые клиенты и тд

Uses crt; var i,j,k,n,max: integer; a: array[1..100] of integer; procedure rmassr; begin       for i: =1 to n do       a[i]: =random(10); end; procedure rmassy; begin       for i: =1 to n do       readln(a[i]); end; procedure maxe; begin max: =a[1];       for i: =2 to n do begin             if a[i] > max then max: =a[i];       end;       writeln('max element = ', max); end; procedure wmass; begin       for i: =1 to n do       write(a[i],' ');       writeln; end; begin clrscr; randomize; write('длина массива'); readln(n); write('1-random; 2- в ручную '); readln(k); if k=1 then rmassr() else rmassy(); wmass(); maxe(); readln end.