Lập trình đơn giản

phamdat

Viết chuong trình nhập vào 2 số a và b. Đếm xem từ a đến b có nhiêu số lẻ

Thiên Hà
4 tháng 10 2019 lúc 5:27

program demsole;

uses crt;

var i,a,b,dem:integer;

begin

clrscr;

write('Nhap so a=');readln(a);

write('Nhap so b=');readln(n);

for i:=a to b do

if i mod 2 <>0 then dem:=dem+1;

writeln('Trong khoang tu ',a,' den ',b,' co tat ca ',dem,' so le');

readln;

end.

Bình luận (1)
Nguyễn Lê Phước Thịnh
12 tháng 10 2019 lúc 8:54

uses crt;

var a,b,i,dem:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

dem:=0;

for i:=a to b do

if i mod 2=1 then inc(dem);

writeln('tu ',a,' toi ',b,' co ',dem,' so le');

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Quỳnh
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
Phương Trâm
Xem chi tiết
Ma Phan Đức
Xem chi tiết
Hồ Hoàng Long
Xem chi tiết
Quỳnh Đỗ
Xem chi tiết
Nguyễn Công Vinh
Xem chi tiết
❤ ~~ Yến ~~ ❤
Xem chi tiết
Trưởng Nguyễn
Xem chi tiết