Question

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ẻ

Answer 1

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.

Answer 2

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.