Надо число и получаемые целые частные делить на основание новой системы счисления до тех пор,пока не получим частное меньшее делителя.
затем записать последнее частное и полученные остатки, начиная с конца.
пример во вложении.
На дискете обычно 1.4 Мб, на CD-диске - 700 Мб, на DVD - 4700 Мб.
Из второго можем сразу найти, что на флешке 2701.4 - 1.4 - 700 = 2000 Мб.
Считаем, сколько пройдёт минут после 2N+1 урока:
(2N + 1)*45 - число минут собственно на учёбу
N * 15 - число минут на длинные перерывы
N * 5 - число минут на короткие перерывы
Считаем, сколько пройдёт минут после 2N уроков:
2N*45 - число минут собственно на учёбу
(N - 1) * 15 - число минут на длинные перерывы
N * 5 - число минут на короткие перерывы
В общем случае, после M уроков (сравниваем ответы):
M*45 - число минут собственно на учёбу
(M div 2 - (M+1) mod 2) * 15 - число минут на длинные перерывы
(M div 2) * 5 - число минут на короткие перерывы
Т.о., время T (в минутах) можно найти по формуле:
T = M*45 + (M div 2 - (M+1) mod 2) * 15 + (M div 2) * 5
Если нужно привести к формату H:M, то
H = 9 + (T div 60)
M = T mod 60
var a,b: array[1..10] of Integer;
i,n: integer;
begin
n:=1;
for i:=1 to 10 do readln(a[i]);
for i:=1 to 10 do
begin
if a[i]<>0 then
begin
b[n]:=a[i];
inc(n);
end;
end;
if n=1 then writeln('Элементов нет') else
for i:=1 to n-1 do writeln(b[i]);
end.
Const
n = 8;
var
i, j, umax, lmax: integer;
a: array[1..n, 1..n] of integer;
begin
Randomize;
writeln('Исходный массив');
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := Random(40) - 20;
write(a[i, j]:4)
end;
writeln;
end;
umax := -100;
for i := 1 to n do
for j := i to n do
if umax < a[i, j] then umax := a[i, j];
lmax := -100;
for i := 1 to n do
for j := 1 to i do
if lmax < a[i, j] then lmax := a[i, j];
writeln('Разность максимумов равна ', umax - lmax)
end.
Тестовое решение:
Исходный массив
-5 18 -13 1 -16 5 0 -13
4 -18 -17 -14 2 10 -2 -15
-15 -8 -6 -16 -10 -12 -18 -17
-18 6 11 -5 4 -6 -1 1
10 14 3 -7 2 11 10 -1
6 -2 -20 1 4 9 13 -4
-9 -7 4 -6 -12 3 1 -14
15 -16 -1 -3 13 -15 3 -10
Разность максимумов равна 3