Question

Паскаль авс нет пожалуйста

Answer 1

Відповідь:

2)

var t:integer;

begin

 write('Задайте массу в киллограммах:');

 read(t);

 write('Полных центнеров: ',t div 100,' полных тонн: ',t div 1000);

end.

3)

var t:integer;

begin

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

 read(t);

 write('Показания часов ',t div 3600 mod 24,':',t div 60 mod 60,':',t mod 60);

end.