|
ЗАДАЧИ
problems.ru |
О проекте
|
Об авторах
|
Справочник
Каталог по темам | по источникам | |
|
|
Материалы по этой теме:
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
Версия для печати
Убрать все задачи Пусть A – некоторая точка пространства, B – ортогональная проекция точки A на плоскость α , l – некоторая прямая этой плоскости. Докажите, что ортогональные проекции точек A и B на эту прямую совпадают. Решите уравнение: (x + 2010)(x + 2011)(x + 2012) = (x + 2011)(x + 2012)(x + 2013). Дан массив. Требуется удалить из него элемент, стоящий на месте номер 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.
|
Страница: << 13 14 15 16 17 18 19 >> [Всего задач: 177]
Докажите неравенство для положительных значений переменных: a³b + b³c + c³a ≥ abc(a + b + c).
Докажите неравенство (1 + x1)...(1 + xn) ≥ 2n, где x1...xn = 1.
Докажите неравенство:
Используя результат задачи 61403, докажите неравенства:
в)
Страница: << 13 14 15 16 17 18 19 >> [Всего задач: 177] |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
© 2004-...
МЦНМО
(о копирайте)
|
Пишите нам
|
|