Охарактеризуйте этапы формирования географической оболочки?

Babl11 Babl11    3   17.04.2019 02:40    3

Ответы
gladyshchuk71 gladyshchuk71  02.06.2020 16:52
Program gt;
var k,s,t:integer;
begin
read(s,t);
if(s<=12)then begin
if(s<=t)then k:=t-s;
if(s>t)then k:=t+12-s;
end;
if(s>12)then begin
if(s<=t+12)then k:=t+12-s;
if(s>t+12)then k:=24-s+t;
end;
writeln(k);
end.
ПОКАЗАТЬ ОТВЕТЫ
Ilyavazhnov1995 Ilyavazhnov1995  02.06.2020 16:52
VB.

Dim S As Integer ' 1<=S<=24
Dim T As Integer ' T<=12       
S = InputBox("S=")       
T = InputBox("T=")       

Select Case S
  Case Is <= T
                MsgBox(T - S)
   Case Is > T
                If T = 12 Then MsgBox((T + 12) - S) Else MsgBox(24 - (S - T))       
End Select
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Другие предметы