Label_1:
writeln('Hello World');
goto label_1;
A[0]=1, A[1]=A[0]+1=1+1=2
Все остальные элементы массива получаются суммированием двух предыдущих элементов: 3, 5, 8, 13
Ответ: 1 2 3 5 8 13
Var a,b,c:longint;
Begin
read(a,b,c);
if c mod 2=1 then
writeln('Нечетное') else
writeln('Четное');
if ((c>=a) and (c<=b)) then
writeln('YES') else
writeln('NO');
<span>End.</span>
Первая программа
var x,y: real;
begin
read(x);
y := x-Power(x,3)/3+Power(x,5)/5;
write('y = ', y );
end.
Вторая
var x,y: real;
begin
read(x);
y := Power(2, -x)-cos(x)+sin(2*x*y);
write('y = ', y );
end.
Третья
var x,y: real;
begin
read(x);
y := (Power(x,2)-7*x+10)/(Power(x,2)-8*x+12);
write('y = ', y );
end.
Четвертая
var x,y: real;
begin
read(x);
y := x-10*sin(x)+abs(power(x,4)-power(x,5));
write('y = ', y );
end.
1)32x32=1024 точки.
2)512 байт=4096 бит.
3)<span>4096/1024 = 4 бит на каждую точку.
</span>4)2^4=16 цветов .