Неправильно выдаёт часы ? program z1; var m, d, n, m1, s, m2, h: integer; begin write('введите значение m: '); readln(m); d : = m div 86400; n : = m div 86400; m1 : = 0; m1 : = 1; s : = m mod 60; m : = m div 60; m2 : = m mod 60; m : = m div 60; h : = m mod 60; if h > 23 then
begin while h < 24 do begin h : = h - 24; n : = n + 1; end; end; if n > 31 then //январь begin n : = n - 31; m1 : = 2; if d > 28 then //февраль begin n : = n - 28; m1 : = 3; if n > 31 then //март begin n : = n - 31; m1 : = 4; if n > 30 then//апрель begin n : = n - 30;
m1 : = 5; if n > 31 then//май begin n : = n - 31; m1 : = 6; if n > 30 then//июнь begin n : = n - 30; m1 : = 7; if n > 31 then//июль begin n : = n - 31; m1 : = 8; if n > 31 then//август begin n : = n - 31; m1 : = 9; if n > 30 then//сентябрь begin n : = n - 30; m1 : = 10;
if n > 31 then//октябрь begin n : = n - 31; m1 : = 11; if n > 30 then//ноябрь begin n : = n - 30; m1 : = 12; if n > 31 then//декабрь begin n : = n - 31; m1 : = 1; end; end; end; end; end; end; end; end; end; end; end; end; if n> 365 then begin while n< 365 do
begin n: =n-365; end; end; writeln('день с начала года: ', d); writeln('число: ', n); writeln('месяц: ', m1); writeln('время: ', h, ' ', m2, ' ', s); end.

Популярно: Информатика

• 

  аааааааааппппппааааа

  06.03.2022 14:27
  Python тылынын алфавитын аныктаныз отынем​...
• 

  nikita2024

  25.03.2020 17:50
  Бір өлшемді массив мысал​...
• 

  Diglir

  20.03.2023 09:02
  Екіөлшемді массив деген не​...
• 

  lerapro123

  14.03.2020 04:10
  Напишите программу, которая в последовательности натуральных чисел...
• 

  Viktoriya3124

  07.06.2020 03:34
  Можно оценку от 1 до 10...
• 

  TheGreatHaterMisha

  21.04.2022 08:43
  Слово book - перевести в десятичный и Двоичный код​...
• 

  ValeryaKN15

  14.06.2022 12:18
  Средством связи пользователя с эвм второго поколения являлись...
• 

  rano09

  01.10.2020 13:43
  Какое устройство является устройством ввода? клавиатура плоттер принтер...
• 

  kz666zlo1

  28.12.2020 08:31
  Существуют ли специальные программы для защиты от угроз сети Интернет?...
• 

  HAAMER12

  25.11.2020 02:30
  Тема массивы и двумерные массивы : - n учащихся одного класса получили...