Viết chương trình nhập vào từ bàn phím 2 số nguyên dương M N . Tính và đưa ra màn hình số lượng các số chẵn lẻ
2 câu trả lời
Program Hotboy;
Uses crt;
Var M,N ,chan,le: word;
Begin
Clrscr;
Writeln('nhap tu ban phim so N'); Readln(N);
Writeln('nhap tu ban phim so M'); readln(M);
For i:= N to M do
If i mod 2=0 then chan:= chan+1 else le:= le+1;
Writeln(chan,la so chan') ;
writeln(le,la so le);
Readln
End.
var m,n,c,l:longint;
begin
write('Nhap n: '); readln(n);
write('Nhap m: '); readln(m);
for i:=m to n do
if i mod 2= 0 then inc(c) else inc(l);
writeln('So chan la: ',c);
write('So le la: ',l);
readln
end.
Câu hỏi trong lớp
Xem thêm
