Tin học ôn tập kiểm tra 1 tiết

[Nguyenngocthuyduong]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết chương trình nhập từ bàn phím số nguyên x (x>1), đếm xem trong đó có bao nhiêu số lẻ trong khoảng từ 1 tới x. Thông báo kết quả rồi in ra màn hình

 

[NT Zũq]

program tu_dat_ten;
uses crt;
var x:integer;
i,dem:byte;
begin
clrscr;
write('Nhap so x: ');readln(x);
dem:=0;
for i:=2 to x do if i mod 2 <>0 then dem:=dem+1;
writeln('So so le tu 1 den x la: ',dem);
readln;
end.
chạy thử xem có lỗi gì không nha, lâu rồi không làm pascal