const
pi = 3.18;
k = 2.7;
var
f, x: real;
begin
write('x = ');
read(x);
if x < -pi / 2 then writeln('f(x) = ', (2 * sqr(sin(x / 2)) / x));
if x >= -pi / 2 then writeln('f(x) = ', exp(sqr(x)) + cos(2 * k * x));
<span>end.</span>
Сад (растения, садовник)
Река (вода, берег)
Игра (игроки, правила)
Ну сначала объявляем переменные,константы юсы и т д,потом если нужно пишем процедуры и функции в конце пишем блок основной программы,заканчивающийся end.
2^10=1024
2^6=64
1024*64=65536 бит
1 кбит=8 бит
65536/8=8192 кбит
Function prime(n:longint):boolean;
var i,j:longint;
p:boolean;
Begin
p:=true;
if (n mod 2)=0 then p=false;
i:=3;j:=round(sqrt(n));
while (i<=j)and(p) do
Begin
if(n mod i)=0 then p=false;
inc(i,2);
end;
prime:=p;
end;