База данных «Test» задана таблицей: *
a) Определите количество полей;
b) Определите количество записей;
c) Определите поля, которые могут быть использованы в качестве ключевого;
d) Определите типы полей; числовой, числовой, символьный, символьный, числовой, числовой, временной
e) Определите, какие записи из таблицы "Test" будут выведены в результате за по условию:
f) Запишите условие отбора для таблицы "Test", которое позволит получить персональный номер и фамилию учеников, которым ровно 17 лет.
var
t:boolean;
d:integer;
begin
t := true;
d := 2;
while t and (d*d <= x) do
begin
if x mod d = 0 then
t := false;
d := d + 1
end;
prime := t
end;
function order(x:integer):boolean;
var
t:boolean;
d:integer;
begin
d := -1;
repeat
t := x mod 10 > d;
d := x mod 10;
x := x div 10
until not t or (x = 0);
order := t
end;
var
t:boolean;
i,k,n:integer;
begin
t := false;
read(k,n);
for i := k to n do
if prime(i) then
if order(i) then
begin
write(i,' ');
t := true
end;
if not t then
write(0)
end.
double a, a1;
ConsoleKeyInfo keyInfo;
do
{
Console.Write("Введите число: ");
a = Convert.ToDouble(Console.ReadLine());
a1 = Math.Pow(a, 2);
Console.WriteLine("Квадрат числа "+ a + " = " + a1);
a1 = Math.Pow(a, 3);
Console.WriteLine("Куб числа " + a + " = " + a1 + "\n");
Console.WriteLine("Если хотите повторить программу нажмите F");
Console.WriteLine("Если хотите завершить программу нажмите любую другую кнопку\n");
keyInfo = Console.ReadKey(true);
}
while (keyInfo.Key == ConsoleKey.F);