Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Victor774
0 / 0 / 0
Регистрация: 10.12.2015
Сообщений: 2
#1

Найдите отсутствующее число. - Turbo Pascal

10.12.2015, 07:54. Просмотров 696. Ответов 1
Метки нет (Все метки)

Потерянное число
Вам даны все целые число от 1 до N+1, кроме одного. Найдите отсутствующее число.
Формат входных данных.
Впервой строке входных данных записано целое число 1<= N<=100000.Во второй строке через пробел даны N целых чисел в диапазоне от 1 до N+1.
Формат выходных данных
Выведите ответ к задаче.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.12.2015, 07:54
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Найдите отсутствующее число. (Turbo Pascal):

Трехзначное число в 5 раз больше суммы своих цифр. Найдите это число. - Turbo Pascal
1) Трехзначное число в 5 раз больше суммы своих цифр. Найдите это число. одна тема одна задача Пыталась написать программы сама, но...

Написать программу, находящую значение из заданного интервала, отсутствующее в массиве. - Turbo Pascal
Добрый вечер. Помогите пожалуйста написать программу, находящую значение из заданного интервала, отсутствующее в массиве.

Найдите наименьшее натуральное число - Turbo Pascal
Найдите наименьшее натуральное число, сумма цифер которого равна заданному числу. Формат ввода Единственное число S (1&lt;=S&lt;=1000) -...

Найдите наибольшее число последовательности - Turbo Pascal
1) Введите последовательность из N целых чисел. Найдите наибольшее число. 2)Найдите сумму N членов ряда: Y=...

Найдите наибольшее число последовательности - Turbo Pascal
Помогите, пожалуйста, выполнить задание: Задание 3 PASCAL Составить алгоритм, написать и отладить программу для решения задачи на...

Найдите в предложении самое короткое число - Turbo Pascal
помогите пожалуйста сделать Задание 8 Введите в ЭВМ предложение длиной не более 80 символов, содержащее числа и слова без...

1
Puporev
Модератор
52847 / 40658 / 13913
Регистрация: 18.05.2008
Сообщений: 94,385
10.12.2015, 12:51 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Например так.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var x:array [1..100001] of byte;
    n,a,i:longint;
begin
read(n);
for i:=1 to n+1 do
x[i]:=0;
for i:=1 to n do
 begin
  read(a);
  x[a]:=1;
 end;
for i:=1 to n+1 do
if x[i]=0 then write(i)
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.12.2015, 12:51
Привет! Вот еще темы с ответами:

Найдите минимальное число среди введенных 10 чисел - Turbo Pascal
Заранее спасибо!!

Найдите число десятков в его десятичной записи - Turbo Pascal
Вроде задача легкая, она звучит так...Дано натуральное число. Найдите число десятков в его десятичной записи (то есть вторую справа цифру...

Массивы. Найдите число с наибольшем количеством цифр - Turbo Pascal
помогите написать прогу.Буду очень признателен)) Дан одномерный массив натуральных чисел. найдите число с наибольшем количеством цифр....

Найдите максимальное число среди введенных 15 чисел - Turbo Pascal
Заранее спасибо!!


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.