1. 2-3 примера фактов из области , или биологии. 2. 2-3 примера правил, изученных на уроках языка, .

1. когда животные собираются умирать они уходят чтобы их не кто не видел2.1) чтобы сложить два числа с разными знаками нужно из большего слагаемого вычесть меньшее, и поставить тот знак который больше примеры: -2+6=3глаголы  совершенного вида  указывают на  завершенность действия, его результат, конец действия или его начало. в неопределенной форме они отвечают на вопрос  что сделать? .  например:   добежать, купить, зазвенеть, построить, запеть.  

Для стека:

const

 MAX_SIZE = 100;

var

 size, n: integer;

 stack: array[1..MAX_SIZE] of integer;

procedure push(a: integer);

begin

 inc(size);

 stack[size] := a;

end;

procedure view;

var

 i: integer;

begin

 for i := 1 to size do

   write(stack[i], ' ');

 writeln;

end;

Для очереди:

const

 MAX_SIZE = 100;

var

 head, tail: integer;

 queue: array[1..MAX_SIZE] of integer;

procedure push(a: integer);

begin

 queue[tail] := a;

 inc(tail);

end;

procedure view;

var

 i: integer;

begin

 for i := head to tail - 1 do

   write(queue[i], ' ');

 writeln;

end;

Объяснение:

Можно лучший , и учи C++

1) посчитать сумму всех нечетных чисел от 230 до 430 // pascalabc.net 3.0, сборка 1088 var   i,s: integer; begin   i: =231; s: =0;   repeat       s: =s+i; i: =i+2   until i> 400;   writeln('сумма нечетных чисел на интервале [230; 400]: ',s) end. результат выполнения программы: сумма нечетных чисел на интервале [230; 400]: 26775 2) вычислить квадратные корни из чисел : 900, 893, до тех пор пока это можно делать // pascalabc.net 3.0, сборка 1088 var   i: integer; begin   i: =900;   repeat       write('(',i: 3,',',sqrt(i): 9: 5,') ');       i: =i-7   until i< 0;   writeln; end. результат выполнения программы: (900, 30.00000) (893, 29.88311) (886, 29.76575) (879, 29.64793) (872, 29.52965) (865, 29.41088) (858, 29.29164) (851, 29.17190) (844, 29.05168) (837, 28.93095) (830, 28.80972) (823, 28.68798) часть строк пропущена (130, 11.40175) (123, 11.09054) (116, 10.77033) (109, 10.44031) (102, 10.09950) ( 95,  9.74679) ( 88,  9.38083) ( 81,  9.00000) ( 74,  8.60233) ( 67,  8.18535) ( 60,  7.74597) ( 53,  7.28011) ( 46,  6.78233) ( 39,  6.24500) ( 32,  5.65685) ( 25,  5.00000) ( 18,  4.24264) ( 11,  3.31662) (  4,  2.00000) 3) найти сумму чисел шестизначного числа// pascalabc.net 3.0, сборка 1088 var   n: longint;   s: integer; begin   write('n='); read(n);   repeat       s: =s + (n mod 10);       n: =n div 10   until n=0;   writeln('сумма цифр числа равна ',s) end. тестовое решение: n=472305 сумма цифр числа равна 21