Question

Программа для подсчета кол-ва часов, минут и секунд в данном числе суток в ABC Pascal Число суток ввести с клавиатуры​

Answer 1

Ответ:

program s;

var day, hour, minute, second: integer;

begin

read(day);

hour := day * 24;

minute := hour * 60;

second := minute * 60;

writeln ('Часов: ', hour, ', минут: ', minute, ', секунд: ', second);

end.

Answer 2

Для создания программы на ABC Pascal, которая будет выполнять подсчет количества часов, минут и секунд в заданном числе суток (введенном с клавиатуры), вы можете использовать следующий код:

pascalCopy code
program CountTime;
var
  days, hours, minutes, seconds: integer;
begin
  writeln('Введите количество суток:');
  readln(days);
  
  // Проверка на отрицательное число суток
  if days < 0 then
  begin
    writeln('Введите положительное количество суток.');
    readln;
    exit;
  end;

  // Рассчитываем часы, минуты и секунды
  hours := days * 24;
  minutes := hours * 60;
  seconds := minutes * 60;
  
  // Вывод результатов
  writeln('В ', days, ' сутках:');
  writeln('Часов: ', hours);
  writeln('Минут: ', minutes);
  writeln('Секунд: ', seconds);
  
  readln;
end.

Эта программа запрашивает количество суток с клавиатуры, затем выполняет необходимые вычисления, чтобы определить количество часов, минут и секунд в указанном числе суток, и выводит результаты на экран. Кроме того, она выполняет проверку на отрицательное значение числа суток и просит ввести положительное значение, если число суток меньше нуля.