Question

Задача 1. Вычислите количество часов и минут в N сутках. program 1;uses crt;var n,nh,nm,ns : integer;beginwrite (' Введите количество суток: '); readln (n);nh:=n*24; {В сутках 24 часа} nm:=nh*60; (1 час=60 минут) writeln (n, суток =' , nh, 'часов=', nm, 'минут =');end.​

Answer 1

Ответ:

program 1;

uses crt;

var p,s,h,m,sc:integer;

begin

write('Количество суток = ');

read(p);

h:=p*24;

m:=h*60;

sc:=m*60;

writeln('Секунд = ' ,sc);

writeln('Минут = ' ,m);

write('Часов = ' ,h)

end.

Answer 2

Программа содержит некоторые ошибки, включая синтаксические ошибки, неправильное использование комментариев и ошибки в логике вычислений. Вот исправленная версия программы на языке Pascal:

pascalCopy code
program Task1;
uses crt;

var
  n, nh, nm : integer;

begin
  write('Введите количество суток: ');
  readln(n);

  nh := n * 24; { В сутках 24 часа }
  nm := nh * 60; { 1 час = 60 минут }

  writeln(n, ' суток = ', nh, ' часов = ', nm, ' минут');
end.

Теперь программа должна правильно вычислить количество часов и минут в N сутках.