nhập vào số nguyên N hãy kiểm tra từ 1 đến N có bao nhiêu số lẻ

Question

nhanlinh · Answer

đ&acirc;y bạn    đ&atilde; test

ngocchau · Answer

program sole;

uses crt;

var n,i,d:integer;

begin

clrscr;

write(‘Nhap n: ‘); readln(n);

d:=0;

for i:=1 to n do

if i mod 2=0 then d:=d+1;

write(‘Tu 1 den ‘,n,’ co ‘,d,’ so le’);

readln

end.

0 bình luận về “nhập vào số nguyên N hãy kiểm tra từ 1 đến N có bao nhiêu số lẻ”