const M: array[1..8] of real = (0.1, 5.6, 0.8, 2.4, 7.3, 6.8, 0.5, 2.3);
var x,y : file of real;
n: real; i: byte;
begin
assign(x,'x.dat');
assign(y,'y.dat');
rewrite(x);
for i:=1 to 8 do write(x, M[i]);
close(x);
reset(x);
rewrite(y);
i := 1;
while not EOF(x) do begin
read(x, n);
if not odd(i) then
write(y, n);
i := i + 1;
end;
close(x);
close(y);
reset(y);
while not EOF(y) do begin
read(y, n);
write(n:5:1);
end;
writeln;
close(y);
end.
Var
s:string;
t,c:string;
function Palindrome(s:string):boolean;
var
i:integer;
begin
for i:= 1 to s.Length div 2 do
if s[i] <> s[s.Length-i+1] then
begin
Palindrome:=false;
exit;
end;
Palindrome:= true;
end;
begin
Readln(s);
c:=copy(s,1, s.Length div 2);
t:=copy(s,s.Length div 2 + 1, s.Length);
if (Palindrome(s))and(Palindrome(c))and(Palindrome(t)) then
Writeln('YES')
else
Writeln('NO');
end.
<u>Пример:</u>
ACAACA
YES
запишем условие: N=64, K=20, I=?
решение: найдем вес одного символа: 64=2^i, i=6 бит
I=K*i=20*6=120 бит
ДИСК:\ИЗОБРАЖЕНИЯ\www.jpeg
ДИСК:\ИЗОБРАЖЕНИЯ\УСТРОЙСТВО ПК\Системный блок.jpeg
ДИСК:\ИЗОБРАЖЕНИЯ\УСТРОЙСТВО ПК\Устройства ввода.jpeg
ДИСК:\ТЕКСТЫ\Программное обеспечение.txt
ДИСК:\ТЕКСТЫ\Системы программирования.doc
ДИСК:\Презентация MacOS.ppt
Вместо диск то что справа на листочке(вначале ветки)
