Систем может быть несколько чтобы в дальнейшем задать вопрос пользователю какую систему загрузить?
если системный диск указать то не получится изменить параметры загрузки системы
я бы так ответил
Var h1,m1,s1,h2,m2,s2,t:integer;
begin
write('Start: ');
readln(h1,m1,s1);
write('Finish: ');
readln(h2,m2,s2);
t:=(h2*3600+m2*60+s2)-(h1*3600+m1*60+s1);
writeln(t);
end.
Пример:
<span>Start: 11 20 30
Finish: 13 15 40
6910</span>
a156bc
s = 123456
q = abc
delete (s,2,3) = 156
(/// Удаляет из строки s count символов с позиции index
procedure Delete(var s: string; index, count: integer);)
insert (s,q,2) = a156bc
(/// Вставляет подстроку source в строку s с позиции index
procedure Insert(source: string; var s: string; index: integer);)
Ответ:
2 строчка: 151
3 строчка: 86
4 строчка: 64
в 8-ую степень с помощью триад
в 10 с помощью степеней двойки
в 16-ую систему с помощью тетрад