В словах каждому символу соответствует один байт (если не сказано
иначе), тогда в слове "бит" - 3 байта
# просчитайте количество целых чисель от L до R все цифры которых различный
# Код на ruby 2.2.3p173
def allDifferentNumbers?(n)
a = []
while n > 0 do
return false if a.include?(n % 10)
a << n % 10
n = n / 10
end
return true
end
def zadanie(l, r)
k = 0
for i in l..r
k += 1 if allDifferentNumbers?(i)
end
return k
end
# Примеры применения
p zadanie(11, 13)
K= 2 в степени а
a=Глубина цвета
M=количество точек по горизонтали
N=количество точек по вертикали
K=количество цветов
V=объём видеопамяти
K=2 =2 в 1 степени
a=1
V = M × N × a
V=800×480×1=384000 бит=48000 байт=46.875 кбайт
#include "iostream"
using namespace std;
int main(){
int secound =0;
int hh =0;
int mm =0;
int ss =0;
int ch[5];
cin >> secound;
hh = secound / 3600;
mm = secound/60 - hh * 60;
ss = secound - hh*3600 - mm *60 ;
if(hh >=24){
int b = hh / 24;
hh = hh - 24 *b;
}
ch[0] = hh;
if(mm< 10){
ch[1] =0;
ch[2] = ss;
}else
ch[1] = mm / 10;
ch[2] = mm - mm / 10 * 10;
if(ss< 10){
ch[3] = 0;
ch[4] = ss;
} else
ch[3] = ss /10;
ch[4] = ss - ss / 10 * 10;
cout << ch[0] << ':' << ch[1] <
Type
tR = real;
tF = file of tR;
procedure SwapFile(fn1, fn2: string);
var
r: tR;
fin, fout: tF;
begin
Assign(fin, fn1); Reset(fin);
Assign(fout, fn2); Rewrite(fout);
while (not Eof(fin)) do begin Read(fin, r); Write(fout, r) end;
Close(fin); Close(fout)
end;
var
f1, f2, f3, f4, f5, fh: string;
begin
f1 := 'f1.bin'; f2 := 'f2.bin'; f3 := 'f3.bin';
f4 := 'f4.bin'; f5 := 'f5.bin'; fh := 'tmp.bin';
{ f2 <-> f4 }
SwapFile(f2, fh); SwapFile(f4, f2); SwapFile(fh, f4);
{ f5->h, f3->f5, f1->f3, h->f1 }
SwapFile(f5, fh); SwapFile(f3, f5); SwapFile(f1, f3); SwapFile(fh, f1)
end.
******************* Для тестирования ******************
Можно создать тестовые файлы с помощью следующей программы:
type
tR = real;
tF = file of tR;
procedure WF(fn: string; m, n: integer);
var
fout: tF;
i: integer;
begin
Assign(fout, fn); Rewrite(fout);
for i := m to n do Write(fout, i / 2);
Close(fout)
end;
var
f1, f2, f3, f4, f5: string;
begin
f1 := 'f1.bin'; f2 := 'f2.bin'; f3 := 'f3.bin';
f4 := 'f4.bin'; f5 := 'f5.bin';
WF(f1, 3, 7); WF(f2, 11, 19); WF(f3, -6, 9); WF(f4, 0, 11); WF(f5, 14, 22);
end.
Далее можно просмотреть содержимое созданных файлов с помощью следующей программы:
type
tR = real;
tF = file of tR;
procedure WF(fn: string);
var
fin: tF;
r: tR;
begin
Writeln(fn);
Assign(fin, fn); Reset(fin);
while (not Eof(fin)) do
begin Read(fin, r); Write(r:0:1, ' ') end;
Writeln;
Close(fin)
end;
var
f1, f2, f3, f4, f5: string;
begin
f1 := 'f1.bin'; f2 := 'f2.bin'; f3 := 'f3.bin';
f4 := 'f4.bin'; f5 := 'f5.bin';
WF(f1); WF(f2); WF(f3); WF(f4); WF(f5)
end.
Затем выполнить основную программу по перезаписи и снова запустить программу для просмотра обновленнных файлов.
