begin

repeat

write('N= ');

readln(n);

until n>12;

s:=0;

for i:=10 to n do

s:=s+i;

write('s= ',s);

readln

end.

8/5*3,14=5,024

năm 2014 = tuổi em nhân 2

à thiếu nè bạn 

mà n \(\in\)N

=>n thuoc {1,2,4,7;14;28} 

ta co bang 

.........................tich minh nha

Sao bạn lại bảo thế , chắc gì bạn học đã giỏi mà bạn lại chê các bạn trên 

lm xg chac tui chot qua

Hiệu số tuổi 2 anh em không thay đổi theo thời gian.

Năm 2012 tuổi anh  gấp 4 lần tuổi em  => tuổi em  = 1/4 tuổi anh = 1/3 hiệu số tuổi. 

Năm 2013 tuổi anh gấp 3 lần tuổi em  => tuổi em = 1/3 tuổi anh = 1/2 hiệu số tuổi. 

Năm 2012 -> 2013 hơn nhau 1 năm hay 1 tuổi. 

=> 1 tuổi so với hiệu số tuổi là: 1/2 - 1/3 = 1/6 (hiệu số tuổi)

=> Hiệu số tuổi 2 anh em là: 1 : 1/6 = 6 (tuổi)

=> Tuổi em năm 2014 là: 6 x 1/2 + 1 = 4 (tuổi)

program bai1;

var s,i,n:longint;

begin

repeat

write('N= ');

readln(n);

until n>0;

s:=0;

for i:=1 to n do

ì i mod 2=1 then s:=s+i;

write('Tong cac so s le la ',s);

redln

end.

Không có câu nào hợp lệ cả

Vì điều kiện ở while do không có phép gán

B0:s:=0;i:=0;

B1:Nhập x từ bàn phím;

B2:Nếu i>x thì chuyển tới b4

B3:s:=s+1/i*(i+1);

i:=i+1;

và quay lại b2;

B5: TBKQ và KTTT