← Сентябрь 2025 | ||||||
1
|
2
|
3
|
4
|
5
|
6
|
7
|
---|---|---|---|---|---|---|
8
|
9
|
10
|
11
|
12
|
13
|
14
|
15
|
16
|
17
|
18
|
19
|
20
|
21
|
22
|
23
|
24
|
25
|
26
|
27
|
28
|
29
|
30
|
Задачи разных уровней сложности и решения к ним по программированию в среде Turbo Pascal.
Статистика
-3 за неделю
Задачи и решения по программированию в среде TurboPascal Туннель
Информационный Канал Subscribe.Ru Туннель Время прохождения теста: 7 сек. Входной файл: tunnel.in Выходной файл: tunnel.out Нуржан стоит у начала, а Ержан на конце туннеля. Они записывают государственные номера машин, проходящих возле них, и затем предоставляют данную информацию полиции, которая находится недалеко от туннеля. Используя эту информацию, полиция может безошибочно определить то, что некоторые машины шли на обгон , пока проезжали туннель, что запрещено законом. Напишите программу, которая будет...
Задачи и решения по программированию в среде TurboPascal Вопросы читателей
Информационный Канал Subscribe.Ru Вопросы читателей - Я вообще не знаю языка паскаль решил попросить Вас помочь мне. Ето в принципе не сложные задачи с первого курса МАДИ. Если Вы мне поможете буду Вам бесконечно благодарен.Их три задачки : 1) Записать на Паскале выражение : (нужно написать только одну строчку) (D(в квадрате+E(в квадрате)в квадрате _ (это дробь) 0,781* D*E*lgY *arctgD. 2) Вычислить значение переменной m после выполнения следующего фрагмента: t:6; m=0; repeat m=m+1; t=t+2; until t<10; 3)...
Задачи и решения по программированию в среде TurboPascal - Окна
Информационный Канал Subscribe.Ru Окна В популярной операционной системе открыто N окон. Каждое окно предствляет собой прямоугольник, состоящий из маленьких квадратиков 1*1. Новое открытое окно, в зависимости от своих координат и размера, может полностью или частично закрывать некоторые из уже открытых окон. Мы можем закрыть видимое окно с помощью мышки, если нажмем на правый верхний квадратик 1*1. Напишите программу, определяющую наименьшее количество нажатий мышки, при котором мы можем закрыть окно, кото...
Задачи и решения по программированию в среде TurboPascal - 4
Информационный Канал Subscribe.Ru Интервалы Здравствуйте, сегодня я вам предлагаю с одной стороны сложную задачу, но если найти закономерность, то она решается довольно легко . Ответ к этой задаче вы можете скачать с сайта рассылки www.Tpascal.boom.ru Задача: Интервал прямой с целочисленными координатами [a, b) содержит левую границу - точку a и не содержит правую границу - точку b. Интервал от 0 до 1000000000 выкрасили в белый цвет. Затем было выполнено N операций перекрашивания. При каждой операции цвета...
Задачи и решения по программированию в среде TurboPascal Опасный вирус
Информационный Канал Subscribe.Ru Опасный вирус Здравствуйте, сегодня я вам предлагаю намного посложней задачу, которая была на областной олимпиаде по информатике в городе Караганда. Ответ к этой задаче вы можете скачать с сайта рассылки www.Tpascal.boom.ru . Задача: В одной из компьютерной лабораторий установлены два серверных компьютера. Работники данной лаборатории заметили, что один из серверных компьютеров выдает различного рода ошибки. Они установили на этот компьютер антивирус, и он определил на дан...
Задачи и решения по программированию в среде TurboPascal Лестница
Информационный Канал Subscribe.Ru Лестница Привет всем, сегодня я вам одну из самых сложных задач. Она когда-то выставлялась на республиканскую олимпиаду в Казахстане (не помню когда, но она довольно быстро решается, если знать способ перебора всевозможных вариантов. Ответ к этой задаче вы можете скачать с сайта рассылки www.Tpascal.boom.ru . Задача: Дано натуральное число n (n<100. Определить, сколькими способами можно подняться на лестницу, состоящую из n лесенок, если разрешается перешагивать не боле...
Задачи и решения по программированию в среде TurboPascal Двойка в степени
Информационный Канал Subscribe.Ru Двойка в степени Здравствуйте, перед вами первый выпуск рассылки. Сегодня я вам предлагаю довольно простую задачу с решением. Возведите двойку в введеную степень. Ограничение: показатель степени не превышает 10000. Тесты: 1. 5 32 2. 10 1024 3. 20 1048576 Ответ: var j,i,p,k,z:integer; s:array[1.1000]of byte; begin write'Vedite pokazatel ctepeni ); readln(p); s[1000=1;z=0; for i=1 to p do begin for j=1000 downto 1 do begin s[j=s[j*2+z; z=s[j]div 10; s[j=s[j]mod 10; end; end;...
- 1
- 2