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

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


textual

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

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.

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

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



Похожие ответы
  1. нужная область-заштрихованная. радиус равен 4

  1. Нужно переделать код так чтобы он при вводи четырех чисел определял совпадают ли в нем вторая и последняя.

  1. Доброго времени суток программисты! Вот такая задачка вызвала затруднение: С клавиатуры вводятся четыре пары координат точек в произвольном порядке(гарантируется, что они не лежат на одной прямой), определить являются ли эти точки вершинами параллелограмма. Подскажите пожалуйста с программой или с алгоритмом осуществления, заранее благодарен.

  1. 29. Определить, заканчивается ли заданное натуральное число на нечетную цифру

  1. 2)Определить какая буква о или а входит в него чаще и на сколько их надо написать множеством

  1. Помогите написать программу Текущее показание электронных часов: t ч (0 ≤ т ≤ 23) n мин (0 ≤ n ≤ 59) k с (0≤ k ≤ 59). Какое время будут показывать часы через р ч q мин r с?

  1. Зада ) Багаж пассажира характеризуется количеством и общей массой вещей. Дан файл Bagazh, содержащий сведения о багаже нескольких пассажиров. Сведения о багаже каждого пассажира представляют собой запись с двумя полями: одно поле целого типа (количество вещей) и одно поле действительное (масса вещей в килограммах). Определить: а) число пассажиров, имеющих более двух вещей, и число пассажиров, количество вещей, которых превосходит среднее; б) имеется ли пассажир, багаж которого состоит из одной вещи массой менее Т [кг]. файл должен создаваться программой

  1. Определить, равны ли первая и последняя цифры заданного с клавиатуры числа.

  1. Помогите, пожалуйста, с программой Даны натуральное число n, целые числа а1,…,аn (последовательности идущих подряд членов), состоящие из степеней пятерки. Определить процедуру, позволяющую распознавать степень пятерки. Программу оформить в виде диалога. Выход из программы – нажатием Esc.

  1. Определить количество отрицательных элементов в тех строках, которые содержат хотя бы один нулевой элемент.