Question

помогите пж.ABC Pascal

Answer 1

//В 1 задании (при значениях, которые введены в примере) выводится true, так как 12:33 предшествует 15:44

//В 2 задании (при значениях, которые введены в примере) выводится 16, так как через 4 часа после 12 часов наступит 16 часов

//В 3 задании (при значениях, которые введены в примере) выводится 21, так как за 15 часов до 12 часов было время 21 час

//На данный момент времени maxint = 2147483647

//Язык Pascal

Program Test;

Var
h1, h2, m1, m2, k: integer; t: boolean;

Begin

Write('Введите h1: ');
Readln(h1);

if (h1 < 0) or (h1 > 23) then
begin
Writeln('Некорректный ввод, переменной h1 будет присвоено значение по умолчанию (0)!');
Writeln();
h1 := 0;
end;

Write('Введите h2: ');
Readln(h2);

if (h2 < 0) or (h2 > 23) then
begin
Writeln('Некорректный ввод, переменной h2 будет присвоено значение по умолчанию (0)!');
Writeln();
h2 := 0;
end;

Write('Введите m1: ');
Readln(m1);

if (m1 < 0) or (m1 > 59) then
begin
Writeln('Некорректный ввод, переменной m1 будет присвоено значение по умолчанию (0)!');
Writeln();
m1 := 0;
end;

Write('Введите m2: ');
Readln(m2);

if (m2 < 0) or (m2 > 59) then
begin
Writeln('Некорректный ввод, переменной m2 будет присвоено значение по умолчанию (0)!');
Writeln();
m2 := 0;
end;

Write('Введите k: ');
Readln(k);

if (k < 0) or (k > 2147483647) then
begin
Writeln('Некорректный ввод, переменной k будет присвоено значение по умолчанию (0)!');
Writeln();
k := 0;
end;

if (h2 > h1) then
t := true

else if (h2 = h1) then
begin
if (m2 > m1) then
t := true

else
t := false;
end

else
t := false;

Writeln();
Writeln('1) t = ', t);

h2 := h1 + 4;

if (h2 > 23) then
h2 := h2 - 24;

Writeln('2) h2 = ', h2);

h2 := h1 - k;

if (h2 < 0) then
begin
while (h2 < 0) do
begin
h2 := 24 + h2;
end;
end;

Writeln('3) h2 = ', h2);

End.