Viết chương trình nhập vào các số nguyên cho đến khi nào gặp số 0 thì kết thúc. Hãy đếm xem có bao nhiêu số chẵn vừa được nhập vào
Viết chương trình nhập vào các số nguyên cho đến khi nào gặp số 0 thì kết thúc. Hãy đếm xem có bao nhiêu số chẵn vừa được nhập vào
Học tốt!
program oken;
uses crt;
var n,i,dem: longint;
begin
clrscr;
dem:=0; i:=0;
repeat
i:=i+1;
write(‘Nhap n (lan thu ‘,i,’): ‘); readln(n);
if (n mod 2=0) then
dem:=dem+1;
until n=0;
writeln(‘Co ‘,dem,’ so chan duoc nhap vao’);
readln;
end.