Экономика
Люди, пожалуйста, очень надо!!! Помогите подписать все куски программ построчно (что они выполняют) подписать только куски под номерами 1, 2, 3:
Program 'test';
var a, b, c, n, i, min: integer;
Begin
min:=32000
a:=10
#1)
While (a<=15) do
Begin
Readln(b);
If (b<=min) then min:=b;
a:=a+1
end;
#2)
Readln(n);
For i:=1 to n do
Begin
Readln(a);
If (min>a) and (a mod 15=0) and (a>0) then min:=a;
End;
b:=a div 15;
Writeln(min, ' ', b);
#3)
If (a>b) then
Begin
Writeln('a');
End
else
Begin
Writeln(b);
End;
Readln();
End.
В приведенных последовательностях каждый следующий элемент получен из предыдущих по некоторому строгому правилу. Угадайте это правило и продолжите ряд.1, 1, 2, 3, 5, 8, 13, 21, 34, 55, ...
1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 0, 1, 1, 1, 2, 1, ...
о, д, т, ч, п, ш, с, в, д, д, ...
1, 11, 21, 1211, 111221, 312211, ...
(Укажите один следующий элемент.)
