Question

написать код на Pascal ABC.NET

Answer 1

Код:var

 H, M, S, totalSeconds: Integer;

begin

 // чтение входных данных

 Write('Введите часы: ');

 Readln(H);

 Write('Введите минуты: ');

 Readln(M);

 Write('Введите секунды: ');

 Readln(S);

 // вычисление общего количества секунд

 totalSeconds := (11 * 60 + 11) * 60;

 // вычисление количества секунд, оставшихся до акции

 totalSeconds := totalSeconds - (H * 60 + M) * 60 - S;

 // вывод результата

 Writeln('Осталось секунд на размышления про подарок: ', totalSeconds, ' секунд');

end.

Результат на скриншоте: