Viết phương trình đếm số lẻ từ 1 đến 100 Giúp mình với mình đang cần gấp ạ 13/08/2021 Bởi Maria Viết phương trình đếm số lẻ từ 1 đến 100 Giúp mình với mình đang cần gấp ạ
Đếm số lẻ var dem,i:integer; begin for i:=1 to 100 do if not i mod 2 = 0 then inc(dem); write(‘Tong so le: ‘,dem); end. Bình luận
var i:integer;
begin
for i:=1 to 100 do
if i mod 2=1 then writeln (i);
readln;
end.
Đếm số lẻ
var dem,i:integer;
begin
for i:=1 to 100 do
if not i mod 2 = 0 then inc(dem);
write(‘Tong so le: ‘,dem);
end.