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

Знаменитый исследователь, утомившись от длинного странствия по тропические заросли, лег спать в 10 часов вечера. Перед этим он завел будильник на 12 часов последующего дня. К раскаянью, проспать 14 часов ему не удалось, т.к. будильник зазвонил теснее через 2 часа. Исследователь пренебрегал, что на будильнике, имеющем 12-ти часовой циферблат, можно задать время до звонка только наименее 12 часов. Требуется написать программу, которая определяет, сколько часов успеет проспать исследователь, до этого чем будильник его разбудит.
Входные данные: Два целых числа S и T(1 lt; S lt; 24, T lt; 12) - час, когда исследователь лег дремать, и час, на который он установил будильник.
Выходные данные: Целое число - через сколько часов зазвонит будильник.

Задать свой вопрос
2 ответа
VB.

Dim S As Integer ' 1lt;=Slt;=24
Dim T As Integer ' Tlt;=12       
S = InputBox("S=")       
T = InputBox("T=")       

Select Case S
  Case Is lt;= T
                MsgBox(T - S)
   Case Is gt; T
                If T = 12 Then MsgBox((T + 12) - S) Else MsgBox(24 - (S - T))       
End Select
Program gt;
var k,s,t:integer;
begin
read(s,t);
if(slt;=12)then begin
if(slt;=t)then k:=t-s;
if(sgt;t)then k:=t+12-s;
end;
if(sgt;12)then begin
if(slt;=t+12)then k:=t+12-s;
if(sgt;t+12)then k:=24-s+t;
end;
writeln(k);
end.

Алла Ольшевец
как появится кнопка "Превосходнейший ответ" - оценю. как превосходнейший ** Спасибо огромное)
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт