Определить время через 10 секунд - Pascal ABC (14567)

Формулировка задачи:

Дано время (часы, минуты, секунды)-три натуральных числа. Определить время через 10 секунд.

Код к задаче: «Определить время через 10 секунд - Pascal ABC (14567)»

textual
var
a,b,c:integer;
begin
cls;
writeln('Введите время в формате "ЧЧ ММ СС"');
readln(a,b,c);
if (a>23) or (b>59) or (c>59) then
 writeln('Недопустимое время.')
else
 begin
  inc(c,10);
  if c>59 then
   begin
    c:=c-60;
    inc(b);
    if b=60 then
     begin
      b:=0;
      inc(a);
      if a=24 then
       begin
        a:=0;
        b:=0;
       end;
     end;
   end;
  writeln(a,' час.',b,' мин.',c,' сек.');
 end;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

14   голосов, оценка 3.786 из 5


СДЕЛАЙТЕ РЕПОСТ