<span>Для того чтобы начать работу в СУБД Access необходимо загрузить операционную систему Windows, выбрать программу Microsoft Access и запустить ее. После запуска появляется окно Access</span>
// PascalABC.NET 3.0, сборка 1088
begin
var n:=ReadLnString('Введите число: ');
n:=n.Where(x->x in ['0'..'9']).JoinIntoString('');
Writeln('Принятое число: ',n);
var a:=ReadLnChar('Введите искомую цифру: ');
Writeln('Количество цифр в числе равно ',n.Length);
if n[1]=n[n.Length] then Writeln('Первая цифра равна последней')
else Writeln('Первая цифра не равна последней');
if Pos(a,n)>0 then Writeln('Цифра ',a,' входит в число')
else Writeln('Цифра ',a,' не входит в число')
end.
<em><u>Тестовое решение:</u></em>
Введите число: тут спрятано 456. по частям 764 наше 03число
Принятое число: 45676403
Введите искомую цифру: 0
Количество цифр в числе равно 8
Первая цифра не равна последней
Цифра 0 входит в число
<em><u>"Школьный вариант"</u></em>
// PascalABC.NET 3.0, сборка 1088
var
n:longint;
i,k:integer;
sn:string;
a:char;
begin
Write('Введите число: '); Readln(n);
Str(n,sn);
Write('Введите искомую цифру: '); Readln(a);
k:=Length(sn);
Writeln('Количество цифр в числе равно ',k);
if sn[1]=sn[k] then Writeln('Первая цифра равна последней')
else Writeln('Первая цифра не равна последней');
if Pos(a,sn)>0 then Writeln('Цифра ',a,' входит в число')
else Writeln('Цифра ',a,' не входит в число')
end.
<em><u>Тестовое решение:</u></em>
Введите число: 3476573
Введите искомую цифру: 7
Количество цифр в числе равно 7
Первая цифра равна последней
Цифра 7 входит в число
0.000046 мегабайт или 46×10^(-6)
Умножение в Pascal обозначается знаком «*», а сложение - знаком «+». program number6; uses crt; var A, B, C: integer; begin clrscr; A:=5; writeln (A); writeln ('A'); A:=A+1; Writeln (' Теперь A=',A); B:=7; C:=A*B; writeln ('Произведение=', C); Readln end. Строка №3.
//PascalABC.Net 3.2
var m, n: integer;
a: array of array of integer;
procedure zam(a1, b1: integer);
begin
for var i:=0 to n-1 do
begin
a[i][a1]+=a[i][b1];
a[i][b1] :=a[i][a1]-a[i][b1];
a[i][a1]-=a[i][b1];
end;
end;
procedure sortSelekt ();
var max: integer;
begin
for var i:=0 to m-1 do
begin
max:=i;
for var j:=i to m-1 do
if a[n-1][max]<a[n-1][j] then max:=j;
if i<>max then zam (i, max);
end;
end;
procedure printMAS ();
begin
for var i:=0 to n-1 do
begin
for var j:=0 to m-1 do write (a[i][j]:4);
writeln;
end;
end;
begin
n:=readinteger('n =');
m:=readinteger('m =');
setLength (a, n);
for var i:=0 to n-1 do
a[i]:=arrRandom (m, -99, 99);
writeln ('Первоначальная случайная матрица: ');
printMAS();
sortSelekt ();
writeln ('Измененная матрица: ');
printMAS();
end.