VD Pascal
Thứ Sáu, 4 tháng 12, 2015
Nhập số bất kỳ từ bàn phím (10
Code:
Program BT;
Var n,i,s: integer;
Begin
repeat
Write(‘Nhap so bat ky: ‘); readln(n);
Until(n>10) and (n<20 p="">S:=0;
For i:=0 to n do
Begin
If i mod 2<>0 then
S:=s+i;
End;
Writeln(‘Tong cac so le nho hon hoac bang ‘,n,’ la: ‘,s);
Readln;
End.
20>
Đăng bởi:
Hoàng Đảm
Nhãn:
pascal,
Tin học văn phòng