Var
a:array[1..100] of integer;
i:integer;
begin
for i:=1 to 100 do
begin
a[i]:=random(100)+1
if ((i mod 2)=0) then write(a[i]," ");
end;
end.
Табличные и графы, они делятся еще на несколько, табличные : типа "объект-свойство", типа "объект-объект", <span>типа "двойная матрица", а графы на иерархические, сетевые и семантические модели</span>
//Pascal
//Функция факториала
function fact(n: integer): real;
begin
if (n = 0) then fact := 1
else fact := n * fact(n - 1);
end;
//Main
var
a: real;
x, lim: integer;
begin
write('Введите x: '); readln(x);
lim := x; a := 0;
for x := 1 to lim do
begin
//a := a + (power(2, x) * fact(x))/(power(x, x));
a := a + ((exp(ln(2) * x)) * fact(x))/(exp(ln(X) * x));
end;
writeln('a = ', a:5:3);
readln;
end.
8 бит = 1 байт
1024 байта = 1 кбайт
1024 кбайта = 1 Мбайт
и т.д.
0,25 кбайт = 256 байт = 2048 бит
Ответ: 2048 бит.
Var a,b,c:real;
<span>begin </span>
<span>readln(a); </span>
<span>readln(b); </span>
<span>readln(c); </span>
<span>if (b*b-4*a*c)>=0 then writeln('deistvitelnie korni est!') else writeln('deistvitelnih korney net'); </span>
<span>if (b*b-(4*a*c))>0 then begin writeln('2 kornya'); writeln('x1= ',(-b-sqrt(b*b-4*a*c))/(2*a)); writeln('x2= ',(-b+sqrt(b*b-4*a*c))/(2*a)) end; </span>
<span>if (b*b-(4*a*c))=0 then begin writeln('1 koren'); writeln('x= ',(-b+sqrt(b*b-4*a*c))/(2*a)) end; </span>
<span>end.</span>
