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

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

Решение:

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

program Integer21;

var

Ts, T: Integer;

begin

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

Readln(Ts);

T:=TS mod 60;

Writeln('Кол-во секунд, прошедших с последней минуты: ',T);

end.

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

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

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

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