Решаем задачи Абрамян на Паскале. Integer 22

Integer22. С начала суток прошло $$N$$ секунд ($$N$$ — целое). Найти количество секунд, прошедших с начала последнего часа.

Решение:

program Integer22;
var
  Ts, T: Integer;
begin
  Write('Введите кол-во секунд: ');
  Readln(Ts);
  T:=TS mod (60*60);
  Writeln('Кол-во секунд, прошедших с начала последнего часа: ',T);
end.

program Integer22;

var

Ts, T: Integer;

begin

Write('Введите кол-во секунд: ');

Readln(Ts);

T:=TS mod (60*60);

Writeln('Кол-во секунд, прошедших с начала последнего часа: ',T);

end.

Другие задачи из раздела Integer можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Integer 22

Комментарии:

Добавить комментарий Отменить ответ