Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.85/13: Рейтинг темы: голосов - 13, средняя оценка - 4.85
44 / 44 / 66
Регистрация: 22.07.2015
Сообщений: 191

Вывести трехзначное число, первая цифра которого равна k, вторая 9, третья 9 — k

24.03.2016, 16:48. Показов 2556. Ответов 15
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Задача с известного сайта: Вводится цифра k, нужно вывести трехзначное число, первая цифра которого равна k, вторая 9, третья 9 - k.
Собственно мой код:
Pascal
1
2
3
4
5
var k: byte; 
begin
  read(k);
  write(k, 99 - k)
end.
Размер кода 40 байтов, но в топе красуется решение на 37 символа. Возможно ли такое или система дала сбой и посчитала неправильно? Есть предположения, что это либо рандом (причем очень удачный), либо ассемблерная вставка (сам я ассемблер не знаю и не уверен).
Компилятор на сайте FPC 2.6.4.
Знаю, это глупо, но все же хотелось бы знать.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
24.03.2016, 16:48
Ответы с готовыми решениями:

Найти минимальное число из последовательности, у которого первая цифра равна 7
С клавиатуры вводится несколько чисел, ввод приостанавливается тогда, когда вводим число 0 (т.е. как мы ввели число 0, больше не вводим...

Найти все четырехзначные числа у которых первая цифра равна второй а третья чётвертой
найти все четырехзначные числа у которых первая цифра равна второй а третья чётвертой(использовать вложенные циклы)

Распечатать числа в диапазоне от 1 до N, у которого первая и вторая цифра справа имеют разную четность
Распечатать числа в диапазоне от 1 до N, у которого первая и вторая цифра справа имеют разную четность

15
19 / 19 / 7
Регистрация: 25.03.2009
Сообщений: 222
25.03.2016, 10:43
А так писать не по правилам:?
Pascal
1
2
3
4
5
var k: byte; 
begin
 k := 3;
 write(k, 99 - k)
end.
0
318 / 208 / 162
Регистрация: 08.12.2015
Сообщений: 863
25.03.2016, 10:53
Pascal
1
2
3
var k: byte;begin
read(k);write(k,99-k)
end.
Думается, в количестве символов в коде. В том числе и пробелы.
0
19 / 19 / 7
Регистрация: 25.03.2009
Сообщений: 222
25.03.2016, 11:32
Тогда можно и так стряпать, 0 пробелов:
Pascal
1
2
3
var
k:byte;begin
read(k);write(k,99-k)end.
Добавлено через 3 минуты
или:
Pascal
1
var k:byte;begin read(k);write(k,99-k)end.
0
44 / 44 / 66
Регистрация: 22.07.2015
Сообщений: 191
25.03.2016, 11:46  [ТС]
capricornus CF, система пробелы не считает

Добавлено через 1 минуту
kayslu, программа проверяется на различных тестах. Эта программа завалится.
0
318 / 208 / 162
Регистрация: 08.12.2015
Сообщений: 863
25.03.2016, 15:40
a1d4r, вы предлагаете гадать? Или может у вашего сайта есть имя?
0
19 / 19 / 7
Регистрация: 25.03.2009
Сообщений: 222
25.03.2016, 17:41
Узкий коридор результатов:
Pascal
1
2
3
4
5
var k: byte; 
begin
 read(k);
 write(99*k)
end.
0
318 / 208 / 162
Регистрация: 08.12.2015
Сообщений: 863
25.03.2016, 18:00
kayslu, не совпадает с условием.
Code
1
к=1 =>  вывод: 198
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
 Аватар для bormant
7816 / 4635 / 2837
Регистрация: 22.11.2013
Сообщений: 13,159
Записей в блоге: 1
25.03.2016, 18:20
kayslu,
увы,
Pascal
4
 Write(99*(k+1))
0
19 / 19 / 7
Регистрация: 25.03.2009
Сообщений: 222
26.03.2016, 16:35
А такое пройдет:?
Pascal
1
2
3
4
begin
 for var i := 5 to 5 do 
  write(i, 99 - i)
end.
0
44 / 44 / 66
Регистрация: 22.07.2015
Сообщений: 191
26.03.2016, 17:30  [ТС]
kayslu, очевидно, что нет
0
19 / 19 / 7
Регистрация: 25.03.2009
Сообщений: 222
26.03.2016, 18:06
a1d4r, пожалуйста, cкопируй сюда точное условие задачи.
0
44 / 44 / 66
Регистрация: 22.07.2015
Сообщений: 191
26.03.2016, 18:20  [ТС]
Боюсь, это не сильно поможет...
В свободное время одноклассники Вася и Петя любят играть в различные логические игры: морской бой, крестики-нолики, шахматы, шашки и многое другое. Ребята уже испробовали и поиграли во всевозможные классические игры подобного рода, включая компьютерные. Однажды им захотелось сыграть во что-нибудь новое, но ничего подходящего найти не удалось. Тогда Петя придумал следующую игру «Угадайка»: Играют двое участников. Первый загадывает любое трехзначное число, такое что первая и последняя цифры отличаются друг от друга более чем на единицу. Далее загадавший число игрок переворачивает загаданное число, меняя первую и последнюю цифры местами, таким образом получая еще одно число. Затем из максимального из полученных двух чисел вычитается минимальное. Задача второго игрока – угадать по первой цифре полученного в результате вычитания числа само это число. Например, если Вася загадал число 487, то перестановкой первой и последней цифры он получит число 784. После чего ему придется вычесть из 784 число 487, в результате чего получится число 297, которое и должен отгадать Петя по указанной первой цифре «2», взятой из этого числа. Петя успевает лучше Васи по математике, поэтому практически всегда выигрывает в играх такого типа. Но в данном случае Петя схитрил и специально придумал такую игру, в которой он не проиграет Васе в любом случае. Дело в том, что придуманная Петей игра имеет выигрышную стратегию, которая заключается в следующем: искомое число всегда является трехзначным и вторая его цифра всегда равна девяти, а для получения значения последней достаточно отнять от девяти первую, т.е. в рассмотренном выше случае последняя цифра равна 9-2=7. Помогите Пете еще упростить процесс отгадывания числа по заданной его первой цифре, написав соответствующую программу.

Входные данные

В единственной строке входного файла INPUT.TXT задана единственная цифра К, соответствующая первой цифре полученного Васей в результате вычитания наименьшего загаданного Васей значения из наибольшего.

Выходные данные

В выходной файл OUTPUT.TXT нужно вывести значение полученной Васей разности.
0
318 / 208 / 162
Регистрация: 08.12.2015
Сообщений: 863
26.03.2016, 20:38
на каком сайте можно проверить?
0
44 / 44 / 66
Регистрация: 22.07.2015
Сообщений: 191
26.03.2016, 21:19  [ТС]
На сайте acmp ru. 4 задача
0
19 / 19 / 7
Регистрация: 25.03.2009
Сообщений: 222
27.03.2016, 06:55
a1d4r, когда ты показал задачу полностью стало ясно, что среди разностей нет 099 и 990, тогда такое решение:
Pascal
1
2
3
4
5
var k: byte; 
begin
 read(k);
 write((k + 1)*99)
end.
Но в твоей трактовке условий молчаливо допускается, что 099 и 990 присутствуют, тогда, наверное, твое решение подходит.
Но. Читая задачу я не убедился, что ввод обязательно через консоль.
Также не убедило, что надо уложиться в 37 символов, тем труднее с файлами.
И понять бы, в чем задача? По одной цифре отгадать изначально задуманное трехзначное число? С опубликованными фильтрами и итерациями многовато чисел получается.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
27.03.2016, 06:55
Помогаю со студенческими работами здесь

Дано трехзначное число. Определить, какая из его цифр больше первая или вторая
Условие: Дано трехзначное число. Определить, какая из его цифр больше первая или вторая. Примечание: Организовать процедуру определения и...

дано трехзначное число определить какая из его цифр больше первая или вторая ?
дано трехзначное число определить какая из его цифр больше первая или вторая ?

Дано трехзначное число. Определить: какая из его цифр больше первая или вторая
Дано трехзначное число. Определить: какая из его цифр больше первая или вторая;

Найти все Трехзначные числа у которых первая и вторая цифра числа равна третьей
Помогите пожалуйста мне надо до завтра написать вот эти проги на паскале, а то завтра зачет а я не оч сильно шарю: 1)Найти все...

дано двузначное число, определить равна ли его вторая цифра 5
дано двузначное число, определить равно его вторая цифра 5 yes-если равна no-если нет


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

Или воспользуйтесь поиском по форуму:
16
Ответ Создать тему
Новые блоги и статьи
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru