1.Для чего предназначены базы даных?-Для осуществления хранения, поиска и сортировки данных.
<span>"вознесся выше он главою непокорной Александрийского столба" -58 симв.
58 * 16 = </span>928 бит / 8 = 116 байт.
4. 16*30*32*16 = 245760 бит / 8 = 30720 байт.
5. 16*50*64*16 = 819200 бит / 8 = 102400 байт.
6. 14 * 36 * 64 * 2 байт = 64512 байт
1024 бит/сек = 0.124 килобайт/сек
ответ - 20000 сек
var
x, y : real;
begin
read (x, y);
if (x > 0) and (y < 0) then writeln ('Yes') else writeln ('No');
end.
Не знаю только, как рассмотреть случай, если одна из координат = 0
var
a, b, c : real;
begin
if (a > b) then
begin
c := a;
a := abs (a + b);
b := sqr (c) - sqr (b);
end
else
begin
c := b;
b := abs (b + a);
a := sqr (c) - sqr (a);
end;
writeln (a, ' ', b);
end,
uses crt;
var a:integer;
begin
write('Введите число: ');
readln(a);
if (a mod 13)=0 then write('Число делится без остатка на 13') else write('Число не делится без остатка на 13');
writeln;
if (a mod 10)=7 then write('Число оканчивается на цифру 7') else write('Число не оканчивается на цифру 7');
end.
Если нужно выполнять программу из-под программной оболочки, удали первую строку.