nhập vào 1 số nguyên cho đến khi gặp số 0 thi kết thúc. đếm có bn số chẵn while do
nhập vào 1 số nguyên cho đến khi gặp số 0 thi kết thúc. đếm có bn số chẵn while do
By Aubrey
By Aubrey
nhập vào 1 số nguyên cho đến khi gặp số 0 thi kết thúc. đếm có bn số chẵn while do
Program BTT;
Uses crt;
Var n, d: longint;
Begin
Clrscr;
d:=0;
Repeat
Write(‘Nhap mot so bat ki: ‘); Readln(n);
If n mod 2 = 0 then inc(d);
Until n=0;
Write(‘Co ‘,d,’ so la so chan’);
Readln
End.
program hocwhile;
uses crt;
var n,d:integer;
begin
clrscr;
d:=0;
while n<>0 do
begin
write(‘Nhap n: ‘);
readln(n);
if (n mod 2=0) and (n<>0) then d:=d+1; {khong tinh n=0 nha}
end;
write(‘Co ‘,d,’ so chan’);
readln
end.