Структура типа "Время" - Часы, минуты, секунды - Pascal

  1. "1)Структура типа "Время" - Часы, минуты, секунды Написать функцию, в которую Ты передаёшь переменную типа "Время", и функция возвращает эту же переменню, на 1 секунду больше

textual

Код:

type
  TTime = record
    h, m, s: ShortInt;
  end;
 
function AddSec(var t: TTime): Boolean;
begin with t do begin
    Inc(s);
    Inc(m,s div 60); s:=s mod 60;
    Inc(h,m div 60); m:=m mod 60;
    AddSec:=h div 24>0; h:=h mod 24;
end; end;

Похожие ответы
  1. Ввести целое число и определить, верно ли, что в его записи есть две одинаковые цифры. Найти сумму, среднее арифметическое и количество цифр в числе

  1. Я наверное всех уже достал. Извините пожалуйста и не откажите еще в одной услуге. В двух матрицах строки расположить в порядке убывания элементов первого столбца.

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

  1. Значения двумерного массива задаются с помощью вложенного оператора цикла в представленном фрагменте программы:

  1. Дано натуральное число n . Вычислить

  1. помогите сделать, есть программа которая создает файл и записывает в него, нужно создать другую программу что бы она считывала с этого файла.

  1. Дана матрица А с размерностью 5х5. Определить номер её столбца с наибольшим произведением элементов, вывести этот номер, а также значение наибольшего произведения.

  1. Нужна помощь в написании следующей программы: задать массив 10X10. Вывести на экран значение минимального элемента тому кто поможет огромная благодарность

  1. Задание заключается в том, что нужно записать из двух файлов в третий строки, которые начинаются на один и тот же символ. Но у меня почему-то не записывается.


Нашли ошибку?
Развитие проекта
Яндекс.Метрика