Ответ:
База данных - это набор сведений (данных), которые хранятся некоторым упорядоченным способом. Для управления базой данных используются различные СУБД.
Объяснение: Если вы так и не поняли что такое база данных, то напиши мне в лс. Постараюсь объяснить подробнее.
Var n,i,t,p:integer;
begin
readln(n);
for i:=2 to n do begin
t:=i;
p:=1;
repeat
p:=p*(t mod 10);
t:=t div 10;
until t=0;
if (p<>0)and(i mod p=0) then write(i,' ');
end;
end.
Var A,i,k:integer;
Begin
Write('Введите 10 целых чисел: ');
k:=0;
For i:= 1 to 10 do
Begin
Read(A);
if A>0 then k:=k+1
End;
Write('Количество положительных: ',k);
End.
Второе задание с помощью формул очень просто Раскрываем скобки(как в алгебре) и получаем копию правой части
Можно показать с помощью кругов