2 câu trả lời
var i,d:longint;
begin
d:=0;
for i := 1 to 50 do
begin
if i mod 2 = 0 then inc(d);
end;
writeln(d);
end.
@Homnaytoibirob
uses crt;
var i,cnt:longint;
begin
clrscr;
for i := 10 to 50 do
if i and 1 = 0 then inc(cnt); writeln('Co ',cnt,' so chan');
readln;
end.
