Тема:
Все темы
>>
Математический анализ
>>
Действительные числа
>>
Целая и дробная части. Принцип Архимеда
Фильтр
Выбрано 4 задачи
Версия для печати
Убрать все задачи
Сколькими способами можно переставить числа от 1 до 100 так, чтобы соседние числа отличались не более, чем на 1?
Решение
На плоскости расположено несколько точек, все попарные расстояния между которыми различны. Каждую из этих точек соединяют с ближайшей. Может ли при этом получиться замкнутая ломаная?
Решение
Решение
Решение
Убрать все задачи
Сколькими способами можно переставить числа от 1 до 100 так, чтобы соседние числа отличались не более, чем на 1?
РешениеНа плоскости расположено несколько точек, все попарные расстояния между которыми различны. Каждую из этих точек соединяют с ближайшей. Может ли при этом получиться замкнутая ломаная?
РешениеДан массив. Требуется удалить из него элемент, стоящий на месте номер B,
сдвинув все последующие элементы влево.
Входные данные
Во входном файле записано сначала число N - количество элементов массива
(2<=N<=100), затем N чисел из диапазона Integer - элементы массива,
а затем число B (1<=B<=N).
Выходные данные
В выходной файл выведите N-1 число - элементы массива с удаленным B-м элементом.
Примечание
Вы должны удалить элемент непосредственно из массива, а не сделать
вид при выводе данных, что у вас такого элемента нет. Также вы не
должны для этого заводить в программе дополнительный массив.
То есть ввод данных осуществляется следующим фрагментом:
read(fi,n);
for i:=1 to n do read(fi,a[i]);
read(fi,b);
А вывод - следующим:
for i:=1 to n-1 do write(fo,a[i],' ');
Необходимые фрагменты вы можете найти в файле P128.PAS
Пример входного файла
5
1 3 5 6 7
2
Пример выходного файла
1 5 6 7
Текст программы P128.PAS
const nmax=100;
var a:array[1..nmax] of integer;
n:integer;
i:integer;
b:integer;
fi,fo:text;
begin
assign(fi,'input.txt');
reset(fi);
assign(fo,'output.txt');
rewrite(fo);
read(fi,n);
for i:=1 to n do read(fi,a[i]);
read(fi,b);
{Вы должны писать здесь}
for i:=1 to n-1 do write(fo,a[i],' ');
close(fi);
close(fo);
end.
РешениеСуществуют ли нецелые числа x и y, для которых {x}{y} = {x + y}?
Решение
Задачи
Страница: 1 2 3 4 5 6 7 >> [Всего задач: 56]
На доску записали числа $1$, $2$, ..., $100$. Далее за ход стирают любые два числа $a$ и $b$, где $a\geqslant b>0$, и пишут вместо них одно число $[a/b]$.
После $99$ ходов на доске останется одно число. Каким наибольшим оно может быть?
(Напомним, что $[x]$ — это наибольшее целое число, не превосходящее $x$.)
Страница: 1 2 3 4 5 6 7 >> [Всего задач: 56]
Задача 102797 |
|
|
Решить уравнение [x³] + [x²] + [x] = {x} − 1.
|
|
Решение |
Задача 67498 |
|
|
|
|
|
Решение |
Задача 31371 |
|
|
Сколько решений в натуральных числах имеет уравнение [x/10] = [x/11] + 1?
|
|
|
Решение |
Задача 66328 |
|
|
Существуют ли нецелые числа x и y, для которых {x}{y} = {x + y}?
|
|
|
Решение |
Задача 98025 |
|
|
Найти число решений в натуральных числах уравнения [x/10] = [x/11] + 1.
|
|
|
Решение |
Страница: 1 2 3 4 5 6 7 >> [Всего задач: 56]
