Берешь один файл-смотришь размер
берешь другой файл-смотришь размер
сравниваешь
пишешь-какой файл больше
Ответ:
2211₁₀ = 1*2⁰ + 1*2¹ + 0*2² + 0*2³ + 0*2⁴ + 1*2⁵ + 0*2⁶ + 1*2⁷ + 0*2⁸ + 0*2⁹ + 0*2¹⁰ + 1*2¹¹ = 100010100011₂
2211₁₀ = 3*8⁰ + 4*8¹ + 2*8² + 4*8³ = 4243₈
2211₁₀ = 3*16⁰ + 10*16¹ + 8*16² = 8A3₁₆
var
x,days,y:integer;
begin
readln(x)
y=0;
days=0;
while y<x do
begin
days=days+1;
y=y+4-3;
end;
writeln('количество дней :' , days);
END.
Ответ:
program Test;
var
a: array of Integer;
n, i, c, left, right: Integer;
begin
Write ('Введите N: ');
ReadLn (n);
SetLength (a, n);
Write ('Введите элементы массива:');
for i := Low (a) to High (a) do
Read (a [i]);
c := 0;
for i := Low (a) to High (a) do begin
if i > Low (a) then
left := i - 1
else
left := High (a);
if i < High (a) then
right := i + 1
else
right := Low (a);
if a [left] = a [right] then begin
Inc (c);
Write (i + 1, ' '); //для проверки
end;
end;
WriteLn;
WriteLn ('Количество = ', c);
ReadLn; ReadLn;
end.