2 câu trả lời
Program baitap;
Uses crt;
Var i,dem:integer;
Begin
Clrscr;
dem:=0;
For i:=1 to 10 do If (i mod 2=0) then dem:=dem+1;
Writeln('Co ',dem,' so chan tu 1 den 10');
Readln
End.
uses crt;
var k, d : integer;
begin
clrscr;
for k := 1 to 10 do
if k mod 2 = 0 then d := d + 1;
writeln('co ', d ,' so chan tu 1 - 10');
readln
end.
