Посути вроде нужно 252 10сс перевести в 25сс пусть будет число из 2х символов
Var
i: integer;
x: real;
begin
x := 0;
i := 0;
while i < 10 do
begin
inc(i);
x := x + 1/i;
end;
writeln(x);
end.
Пишу на QBasic
Нам уже дан заполненный массив
FOR I = (кол-во элементов массива) TO 1 STEP -1
IF A(I)<0 THEN
PRINT I
END
END IF
Разделим таблицу по диагонали слева направо (\).
Давайте будем идти по строчкам (вертикальный столбец 1, 2, 3, 4, ...) и искать, в каких столбцах (горизонтальная строка 1, 2, 3, 4, ...) встречается единичка:
- [1][3]
- [1][4]
- [2][3]
- [3][6]
- [4][5]
- [5][7]
- [5][8]
- [6][7]
- [7][8]
- [7][9]
Всё это значит связь между нумерованными кругами. Мы выписали все связи. Доказать это легко. 1 соединяется и с 3, и с 4, но не соединяется с 2. Так и есть, мы не выписывали пару [1][2]. 5 соединяется с 7 и 8, но не соединяется с 2. Всё так, как мы написали.