Var
A:integer;
Begin
WriteLn('Введите кол-во секунд');
ReadLn(A);
WriteLn(A div 3600,' ч ',A mod 60,' мин ',A mod 60,' сек')
End.
Там внизу есть ссылка на ответы. если нет то я ничем нимагу помочь. сорян
Драйвера.
Примеры:
Принтер - спец. драйвера для принтерев
Колонки/наушники - аудио.драйвера
и т.д
var n,a,i,max:integer;
begin
readln(n);
max:=0;
for i:=1 to n do
begin
read(a);
if (a mod 10=2)and(a>max) then max:=a;
end;
writeln(max);
end.
Пример:
17 20 12 41 15 5 52 10
52
Ответ:
1) Шестиричная. Ибо максимальная цифра 5
2) Третичная. То же обоснование
3) Шестиричная.То же обоснование
4) Одиннадцатиричная. А - это 10
5) Триннадцатиричная. С - это 12
6) Восьмиричная. То же обоснование