А где ты треки фасе будешь хранить?
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>
Линейный алгоритм всегда выполняется до конца или происходит ошибка.
Ветвление выполняет разные действия в зависимости от вводных данных.
Цикл выполняет действие много раз, пока не выполниться или не перестанет выполняться в зависимости от типа цикла определенное условие или условия.
3+2×8+0×64+2×512=3+16+1024=1043
S = 0
for i in range(2,101,2):
s = s+i
print("s=",s)
Результат:
<span>s= 2550</span>