var n,i:integer;
s:real;
begin
readln(n);
if n mod 2 <> 0 then write('So da nhap khong hop le.')
else begin i:=2; s:=0;
while i<=n do
begin s:=s+1/i;
i:=i+2; end;
write(s:2:5); end;
end.

Trong một trò chơi đổi số, mỗi cặp số nguyên dương (x,y) (1 ≤ x,y ≤ 10000) có thể được thay bởi một trong ba cặp số mới theo quy tắc sau:

- Dạng 1: (x+y,y) nếu x+y ≤ 1000.

- Dạng 2: (y,x).

- Dạng 3: (x-y,y) nếu x-y ≥ 1.

Dữ liệu: cho trong tệp DOISO.INP, gồm 1 dòng ghi bốn số nguyên dương a, b, c, d với 1 ≤ a, b, c, d ≤ 1000.

Kết quả: ghi ra tệp DOISO.OUT 2 dòng:

- Dòng 1 ghi số lượng k các phép biến đổi cần thực hiện để biến đổi cặp (a,b) thành cặp (c,d) (ghi 0 nếu không thể biến đổi được).

- Dòng 2 ghi k số, là dạng của các phép biến đổi theo thứ tự cần thực hiện.

Ví dụ:

var n,i,s:integer;
begin
write('Nhap n: ');
readln(n);
for i:=1 to n do
if i mod 2 <>0 then s:=s+i;
write('Tong ',n,' so tu nhien le: ',s);
end.

var n,i,s:integer;
begin
write('Nhap n: ');
readln(n);
for i:=1 to n do
if i mod 2 <>0 then s:=s+i;
write('Tong ',n,' so tu nhien le: ',s);
end.

var n,i,s:integer;
begin
write('Nhap n: ');
readln(n);
for i:=1 to n do
if i mod 2 <>0 then s:=s+i;
write('Tong ',n,' so tu nhien le: ',s);
end.

Câu 1:

var n,t,i,s:integer;
begin
write('Nhap so n: ');
readln(n);
t:=n;
for i:=1 to 3 do
begin s:=s+t mod 10;
t:=t div 10; end;
write('Tong cac chu so cua ',n,' la: ',s);
end.

Câu 2:

var a,b,t:integer;
begin
write('Nhap a: ');
readln(a);
write('Nhap b: ');
readln(b);
if a>b then begin t:=a;
a:=b;
b:=t; end;
write('a=',a,' b=',b);
end.

var s:string;
n,i,code:integer;
t:longint;
begin
write('Nhap xau ');
readln(s);
for i:=1 to length(s) do
if s[i] in ['1'..'9'] then begin val(s[i],n,code);
t:=t+n; end;
write('Tong cac so trong xau ',t);
end.