Форум Не про работу Самое разное

Помогите решить задачу на Pascal

Vanguard
На сайте с 30.07.2010
Offline
54
Vanguard
542

Здравствуйте. Помогите решить задачу на языке программирования Pascal.

Вот сама задача:

Из города Китеж в форт Байан почти каждый час с 7:00 до 17:00 отправляются автобусы с туристами. К сожалению, в расписании указано только время отправления, но не указано время прибытия. Петя узнал, что время поездки до форта без остановок равно K часов. Но согласно постановлению главного врача Беловодья водители во время поездки должны делать остановки с 8:00 до 9:00 на завтрак, с 13:00 до 14:00 на обед и с 18:00 до 19:00 на ужин.
Напишите программу, которая поможет Пете узнать время прибытия автобуса.
Первая строка ввода содержит два целых числа — время отправления автобуса T (7 ≤ T ≤ 17, T≠8, T≠13) и длительность поездки без остановок K (2 ≤ K ≤ 10).
Вывести одно целое число — время прибытия автобуса с учетом остановок на еду.
M2
На сайте с 15.11.2010
Offline
3
Microne2010
#1

сколько готовы заплатить?

Получи 35 изображений бесплатно, а остальные - за полцены! (http://goo.gl/mpkUZ)
SlonoTOP
На сайте с 26.05.2009
Offline
186
SlonoTOP
#2
Vanguard:
Здравствуйте. Помогите решить задачу на языке программирования Pascal.
Вот сама задача:

var

N, T, K : Integer;

begin

Write('время отправления и дл поездки: '); ReadLn(T, K);

if (T < 7) or (T > 17) then WriteLn('Время не может быть < 7 и > 17')

else if (T = 8) or (T = 13) then WriteLn('Время не может совпадать )

else if (K < 2) or (K > 10) then WriteLn('Время поездки ')

else begin

for N := 1 to K do begin

T := T + 1;

if (T = 8) or (T = 13) or (T = 18) then T := T + 1;

end;

if T > 24 then T := T - 24;

WriteLn('Время прибытия: ', T);

end;

end.

Авторизуйтесь или зарегистрируйтесь, чтобы оставить комментарий