База данных «Тестирование» задана таблицей:
Тестирование
№
Регистрационный номер
Фамилия
Пол
Возраст
Школа
1
100
Бульц
м
15
1
2
121
Абенова
ж
17
203
3
123
Айтмагамбетова
ж
16
27
4
133
Мухитдинов
м
16
77
5
145
Яценко
м
17
77
6
199
Ким
м
15
96
Определите количество полей;
Определите количество записей;
Определите поля, которые могут быть использованы в качестве ключевого;
Определите типы полей;
Определите, какие записи из таблицы "Тестирование" будут выведены в результате за по условию: Возраст>15 и Фамилия = *а
Запишите условие отбора для таблицы "Тестирование", которое позволит получить сведения об учениках мужского пола, которые младше 17 лет.
var m:array [0..14] of integer; i:integer;
function IsPositive(a:integer):boolean;
begin
result:=(a>-1);
end;
procedure work;
var min, max, count:integer;
begin
count:=0;
min:=m[0];
max:=0;
for i:=0 to 14 do begin
if IsPositive(m[i]) then begin
inc(count);
if m[i]>max then max:=m[i];
if m[i]<min then min:=m[i];
end;
end;
writeln('MAX: ', max);
writeln('MIN: ', min);
writeln('Count: ', count);
end;
begin
for i:=0 to 14 do begin
write('n: ');
readln(m[i]);
end;
work;
readln;
end.
2. Немного изменим ваш код и получим искомое значение x
Искомое число х = 16293
var
x, y, a, b, k: integer;
begin
k:=10000;
repeat
x:=k;
a := 0; b := 0; y := 1;
while x > 0 do
begin
if (x mod 10) mod 2 = 0
then
a := a * 10 + x mod 10
else begin
y := y * 10;
b := b * 10 + x mod 10
end;
x := x div 10
end;
a := a * y + b;
k := k + 1;
until a = 26391;
writeln(a:8, k-1:8);
end.