Viết ct nhập vào hai số nguyên a,b (a>b). Đếm và đưa lên mà hình số lượng lẻ chia hết cho 3 có trong [a,b]
2 câu trả lời
uses crt;
var a,b,cnt,i:longint;
begin
clrscr;
read(a,b);
for i:=a to b do
if i mod 27 = 0 then inc(cnt);
writeln(cnt);
readln; readln;
end.
uses crt;
var a,b,i,d:longint;
begin
clrscr;
write('Nhap a,b: ');readln(a,b);
for i:=a to b do
if (i mod 2=1)and(i mod 3=0) then d:=d+1;
writeln(d);
readln
end.
Câu hỏi trong lớp
Xem thêm
