41)Создать новую таблицу
42) Д)
43)Правка - Удалить запись.
50) <span>Параметры.
53)</span><span>Выводится диалоговое окно с приглашением ввести параметр для условия на отбор записей.
56)</span><span>Изменяются значения в полях определенных записей.
57)</span>Создается таблица с данными, соответствующими определенным условиям.
62)<span>Автоматической вставки последовательных или случайных чисел в качестве номера новой записи.
</span>65)<span>Во вкладке Режим таблиц – выбрать Вставить
66)</span>Разные имена, но одинаковый тип данных.
69)<span>Для отбора записей, данные в которых соответствуют определенным условиям.
</span>70)Е)
71)<span>Для создания контрольного переключателя.</span>
Var n,S,P:integer;
Begin
Write('n = ');ReadLn(n);
P:=1;
S:=0;
While n > 0 do
Begin
P:=P*(n mod 10);
S:=S+n mod 10;
n:=n div 10
End;
WriteLn('S - P = ',S-P)
End.
Если на Pascal, то вот:
program pr1;
var a:real;
begin
write("Введите число ");
readln(a);
writeln("Вы ввели число ", a);
end.
Program gt;
var a:array[1..10,1..10]of integer;
n,k,p:integer;
begin
p:=0;
for n:=1 to 10 do
for k:=1 to 10 do
a[n,k]:=1;
for n:=1 to 4 do
for k:=1 to n+1 do
begin
A[n,k]:=A[n,k]-1;
A[k,n]:=A[k,n]-1;
end;
for n:=1 to 10 do
begin
for k:=1 to 10 do
begin
write(a[n,k]:3,' ');
if(a[n,k]=0)then p:=p+1;
end;
writeln;
end;
writeln(p);
<span>end.
ответ:8</span>
<span>1.Компьютер - это универсальное электронное программно управляемое устройство для работы с информацией </span>
