/ help •Is it possible to access databases using the Web?
•What is the significance of field types in a database?
•Why do errors creep into databases?
•How do database designers use normalization to reduce
data redundancy?
•What roles do sorting and indexing play in making databases more
versatile?
•Is it difficult to create reports from a database?

• Можно ли получить доступ к базам данных с Интернета?
• Каково значение типов полей в базе данных?
• Почему ошибки проникают в базы данных?
• Как разработчики баз данных используют нормализацию для уменьшения
избыточности данных?
• Какую роль играют сортировка и индексирование в повышении
универсальности баз данных?
• Сложно ли создавать отчеты из базы данных?

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

№1

begin
  var n:=ReadInteger('n=');
  var s:=n mod 10;
  n:=n div 10;
  var d:integer;
  while n>0 do (d,n):=(n mod 10,n div 10);
  s+=d;
  Writeln('Сумма ',s);
  if s>10 then Writeln('Верно') else Writeln('Неверно')
end.

№2

begin
  var s:=ReadInteger('n=').ToString;
  var n:=s.Length;
  (s[1],s[n]):=(s[n],s[1]);
  s.Println;
  if s[n].ToDigit.IsEven then Writeln('Верно') else Writeln('Неверно')
end.

№3

begin
  var n:=ReadInteger('n=');
  var p:=1;
  while n>0 do begin
    var d:=n mod 10;
    if d.IsOdd then p*=d;
    n:=n div 10
    end;
  Writeln('Произведение ',p);
  If p.InRange(100,999) then Writeln('Верно') else Writeln('Неверно')
end.

№4

begin
  var n:=ReadInteger('n=');
  var k:=0;
  while n>0 do begin
    if n mod 10=5 then k+=1;
    n:=n div 10
    end;
  if k=3 then Writeln('Верно') else Writeln('Неверно')
end.

№5

begin
  var n:=ReadInteger('n=');
  var k:=1;
  Writeln('Делители: ');
  for var i:=1 to n div 2 do
    if n mod i=0 then begin
      Print(i);
      k+=1
      end;
  Writeln(n);
  if k.IsEven then Writeln('Верно') else Writeln('Неверно')
end.

Const n=10; 
type ar=array[1..n+1] of integer;
var 
a:ar; i,p:integer; 
procedure pr(var a:ar; p:integer; var k:integer);
begin
k:=1;
while a[k]<>p do k:=k+1;
end;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
 begin
 a[i]:=random(31);
 write(a[i]:4);
 end;
writeln;
p:=17;
a[n+1]:=p;
pr(a,p,i);
if i<n 
 then writeln('Значение 17 найдено, номер элемента = ',i)
 else writeln('Значения 17 в массиве нет');
end.

Пример:
Массив A:
  14   5   7  17  25  15  28   0  24   0
Значение 17 найдено, номер элемента = 4