Добавить одну секунду к заданному времени

@trueuser · Регистрация: 26.10.2015

Author24 — интернет-сервис помощи студентам

Доброго времени суток. У меня есть проблема, помогите мне ее решить. Дана задача:
Даны 3 целых числа, представляют собой запись времени: x - часы, y - минуты, z - секунду. Необходимо увеличить(уменьшить) данное время на 1 секунду. Дополнительно проверить диапазон временных значений x,y,z. Есть код этой задачи, но я уверен что она неправильна, проконсультируйте пожалуйста.

Pascal

Program oclock;
x,y,z:integer;
Var
Begin
Writeln('Vvedite znachenie vremeni x,y,z');
Readln(x,y,z);
Writeln('Vvedite znachenie chasa x');
Readln(x);
Writeln('Vvedite znachenie minuti y');
Readln(y);
Writeln('Vvedite znachenie sekundi z');
Readln(z);
if x>y>z then x:=60
     else y:=60
     else z:=1
if else (x>y) (x>z) then:=x+z
Writeln('Najmite Enter');
End

@Puporev · 26.10.2015, 22:58

Смотрите похожие темы внизу страницы, например первую. Впредь создавайте для каждой задачи свою тему и называйте ее осмысленно.

@APALoff · 27.10.2015, 09:39

Дубль: https://www.cyberforum.ru/turb... 62901.html

@Puporev · 27.10.2015, 09:40

Удалил.

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	26.10.2015, 22:58	2
	Смотрите похожие темы внизу страницы, например первую. Впредь создавайте для каждой задачи свою тему и называйте ее осмысленно. 0

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	27.10.2015, 09:39	3
	Дубль: https://www.cyberforum.ru/turb... 62901.html 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	27.10.2015, 09:40	4
	Удалил. 0