1. Информатика
  2. Написать программу Pascal abc

Написать программу Pascal abc
В шкатулке хранится разноцветный бисер (или бусины). Все бусины имеют одинаковую форму, размер и вес. Бусины могут быть одного из N различных цветов. В шкатулке много бусин каждого цвета.
Требуется определить минимальное число бусин, которые можно не глядя вытащить из шкатулки так, чтобы среди них гарантированно были две бусины одного цвета.
Входные данные
Входной файл INPUT.TXT содержит одно натуральное число N - количество цветов бусин (1 ≤ N ≤ 109).
Выходные данные
В выходной файл OUTPUT.TXT выведите ответ на поставленную задачу.

Natanahgy Natanahgy    1   12.04.2020 17:26    18

Ответы
Maksat3232123 Maksat3232123  13.10.2020 03:01

var N: integer;

var f: text;  

begin

assign(f,'C:\1\INPUT.TXT');

reset(f);

read(f,N);

close(f);

assign(f,'C:\1\INPUT.TXT');

rewrite(f);

write(f,N+1);

close(f);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
hanbek81 hanbek81  31.08.2019 06:30
Написать программу для пересчета из миль в километры (1 миля=1.609344 км). расстояние в километрах k вводится из программы....
Kevand Kevand  19.12.2021 09:11
файл не нужно пересылать! надо скопировать то что вы написали!...
ElenaDzaraxova ElenaDzaraxova  19.12.2021 09:13
На одной дороге находятся поселения K и R, между которыми 52 км. Автомобиль выехал из поселения R в направлении, противоположном K, со скоростью 59 км/ч. Необходимо...
клубочек333 клубочек333  30.09.2019 17:30
Любопытно, что впервые обратный отсчёт перед запуском ракеты был использован в немом научно-фантастическом фильме «женщина на луне». драматический приём оказался...
lenabota1 lenabota1  30.09.2019 17:30
Решите примеры. 1) 1000110+1010101 2) 1110001110-11010 3)100011110111: 101101 4)101101х100011...
Gansterghkl Gansterghkl  31.05.2019 12:10
Составить алг: а) дано числа x,y. найти максимальное из 2-х чисел, из 3-х чисел....
Markiza11 Markiza11  31.05.2019 12:10
Нужна ! напишите программу в паскале, для построения прямоугольного треугольника с обозначением прямого угла, вершин, и подписать катеты и !...
SensRow SensRow  31.05.2019 12:10
2.что будет выведено в результате выполнения фрагмента программы: a: =’пар’; b: =’о’; c: =’воз’; e: =’ход’; f: =length(a) + length(b)+ length(c)- length(е) ; 1)18...
pogoreiko pogoreiko  14.07.2019 00:50
Подготовить ответы на вопросы. 1)кого он брал с собой? (маленькую сестренку,собаку,котенка) 2) что они там делали? (играла,гонялся за бабочками,громко лаял,охранял...
Slysly Slysly  14.07.2019 00:50
Какие причины к революции 1905-1907 гг.? каковы ее основные итоги?...

Популярные вопросы