Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.92/13: Рейтинг темы: голосов - 13, средняя оценка - 4.92
0 / 0 / 0
Регистрация: 15.04.2012
Сообщений: 29
1

Дом - Школа - Дом

29.04.2012, 23:09. Просмотров 2454. Ответов 2
Метки нет (Все метки)


Мальчик Вася каждый день ездит на метро. Утром он едет в школу, а вечером того же дня, обратно из школы, домой. Для того, чтобы немного сэкономить, он покупает электронную смарт-карту на X поездок. Когда он хочет зайти в метро, он прикладывает карту к турникету. Если на карте осталось ненулевое количество поездок, то турникет пропускает Васю и списывает с карты одну поездку. Если же на карте не осталось поездок, то турникет не пропускает Васю, и он (Вася) вынужден купить на этой же станции новую карту на X поездок и вновь пройти через турникет.

Вася заметил, что в связи с тем, что утром метро переполнено, покупать новую карту утром накладно по времени, и он может опоздать в школу. В связи с этим он хочет понять: будет ли такой день, что с утра, поехав в школу, окажется, что у него на карточке ноль поездок.

Вася больше никуда на метро не ездит и поэтому заходит в метро только на станции около дома и на станции около школы.
Входные данные

Во входном файле INPUT.TXT содержится ровно 2 строки. В первой содержится слово «School» или «Home» в зависимости от того, где первый раз Вася купил карточку на X поездок. Во второй строке содержится натуральное число X, 1 ≤ X ≤ 1000.
Выходные данные

В выходной файл OUTPUT.TXT следует вывести «Yes», если будет такой день, что утром у Васи на карточке окажется ноль поездок и «No» в противном случае.
Примеры
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.04.2012, 23:09
Ответы с готовыми решениями:

Нарисовать бревенчатый дом
Нужно нарисовать дом. Сдавать нужно в субботу.(

Нарисовать дом как на рисунке
Помогите нарисовать дом в турбо паскале как на рисунке

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

Нарисовать самолёт, сбрасывающий бомбу на дом
Нужно нарисовать самолёт сбрасывающий бомбу на дом.

2
4 / 4 / 4
Регистрация: 11.11.2014
Сообщений: 6
15.11.2014, 00:49 2
Лучший ответ Сообщение было отмечено крепкова как решение

Решение

Pascal
1
2
3
4
5
6
7
8
var
x:word;
p:string;
begin
  readln(p);
  readln(x);
  if (p[1]<>'H') and (x mod 2 <> 1) then writeln('No') else writeln('Yes');
end.
0
2 / 2 / 0
Регистрация: 04.04.2015
Сообщений: 85
04.04.2015, 21:23 3
Запись в Паскаль программу которая должна запрашивать у пользователя значения углов треугольника и определять, может ли он существовать. Если треугольник с такими углами не существует, программа должна предложить пользователю ввести новые значения. Если треугольник с введенными значениями углов существует, программа должна вывести на экран сообщение об этом и завершить работу
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.04.2015, 21:23

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Нарисовать дом, танк, скрипичный ключ
Помогите пожалуйста решить задачи: Можно использовать любые цвета (возможности небезграничны,...

Определить,можно ли поместить дом на участке.
Составить программу на языке Паскаль.Помогите плиииз Известны размеры дома и участка,необходимо...

Нарисовать в рисунок: дом в котором едет крыша
Нарисовать в Borland Pascal рисунок: дом в котром едет крыша.

Перед каждым словом «дом» добавить слово «большой»
Составить программы, с помощью которых: - сформировать текстовый файл из строк, которые должны...


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

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

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