Const n1='file1'; n2='file2'; n3='file3';
var f1,f2,f3:file of char; c:char;
begin
assign(f1,n1); assign(f2,n2); assign(f3,n3);
reset(f1); rewrite(f3);
while not(eof(f1)) do begin read(f1,c); write(f3,c) end;
close(f1); close(f3);
reset(f2); rewrite(f1);
while not(eof(f2)) do begin read(f2,c); write(f1,c) end;
close(f1); close(f2);
reset(f3); rewrite(f2);
while not(eof(f3)) do begin read(f3,c); write(f2,c) end;
close(f3); close(f2);
erase(f3)
<span>end.</span>
А как сделать это диктант по клеточкам ?
.ru - Россия
.ca - Канада
.de - Германия
.fr - Франция
.uk - Великобритания
.us - США
Обозначим Симченко - С, Василькова - В, <span>Левченко - Л;
Исходя из прогнозов и условия:
1 место. НЕ С И НЕ В => Л
2 </span>место<span>. НЕ В И НЕ Л => С
3 </span><span>место</span><span>. НЕ Л И НЕ С => В
Получили ответ:
</span><span> Левченко занял 1 место.
</span><span> Симченко занял 2 место.
</span><span> Васильков занял 3 место.</span>
<span>1/512 Мбайт=2 кбайт=2048*8 бит
</span>2048*8/4096=4 бит/символ
N=2^I=2^4=16 -мощность