Спо информатике 9 класс. 1) составьте программу заполнения массива а 1..10 случайными целыми числами в диапозоне от n до m. числа n и m введите с клавиатуры вывидите на экран полученный массив 2)составьте программу заполнения массива a[1..10] следуюзими числами: индекс элемента: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 значение элемента: 3, 5, 7, 9, 11, 13, 15, 17, 19, 21 закономерность: для каждого элемента массива его значение равно удвоенному индексу, увеличенному на 1. 3) составьте программу заполнения массива a{1..10] числами фибоначчи. в последовательности фибоначчи значения первых двух элементов равны 1, а значение каждого последующего элемента, начиная с третьего, равно сумме двух предыдущих. индекс элемента: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 значение элемента: 1, 1, 2, 3, 5, 8, 13, 21, 34, 55

const k=10;

var a:array[1..k] of integer;

n,m,i:integer;

begin

// 1

write('n, m: ');

readln(n,m);

for i:=1 to k do

begin

a[i]:=random(m-n+1)+n;

write(a[i],' ');

end;

writeln;

// 2

for i:=1 to k do

begin

a[i]:=2*i+1;

write(a[i],' ');

end;

writeln;

// 3

a[1]:=1; a[2]:=1;

write(a[1],' ',a[2],' ');

for i:=3 to k do

begin

a[i]:=a[i-2]+a[i-1];

write(a[i],' ');

end;

writeln;

end.

Пример:

n, m: 5 15

5 6 11 8 6 14 8 7 9 10  

3 5 7 9 11 13 15 17 19 21  

1 1 2 3 5 8 13 21 34 55

1) а) на Java
class example{
    public static void main (String[] args){
        int k = 0, j = 0;
        for (int i = 0; i < 10; i++){
            k = k + 5;
            j = j + k;
            if (i == 9)
            System.out.print(k);
            else
            System.out.print(k + " + ");
        }
        System.out.print(" = " + j);
    }
}
б) на Pascal
var a,b,c:integer;
begin
for a:=1 to 10 do
begin
b:=b+5;
c:=c+b;
if (a = 10) then write(b)
else write(b, ' + ')
end;
write(' = ', c);
end.
2) а) на Java
class example{
    public static void main(String args[]){
        for (int x = 50; x >= 40; x--){
        double y = (5 * x) + (Math.pow(x, 2));
        int i = (int) y;
        System.out.println(i);
        }
    }
}
б) на Pascal
var y:real;
x:integer;
begin
for x:=50 downto 40 do
begin
y:=(5*x)+sqr(x);
writeln(y:0:0);
end;
end.

Точки А и В - любые точки на плоскости.

Установить раствор циркуля равный заданному радиусу.
Установить ножку циркуля в точку А, провести окружность.
Установить ножку циркуля в точку В, провести окружность.
Есть ли точки пересечения?
Нет - искомой окружности не существует.
Да - Устанавливаем ножку циркуля в точку пересечения, проводим окружность.

(Точек пересечения может быть две, тогда можно построить две окружности. Или окружности могут соприкасаться в одной точке, тогда искомая окружность будет одна.)