viết chương trình tính số chẵn và số lẻ từ 1 đến n
( mn giúp mh với ???? )

Question

viết chương trình tính số chẵn và số lẻ từ 1 đến n  ( mn giúp mh với ???? )

lanhoa · Answer

program phuongt;

uses crt;

var n, s, d, i: integer;

begin

clrscr;

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

s:=0; d:=0;

for i:=1 to n do if i mod 2 = 0 then s:=s+1 else d:=d+1;

writeln(‘So chan = ‘, s);

write(‘So le = ‘, d);

readln

end.

thucquyen · Answer

program demchanle;

uses crt;

var d,n: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;

writeln(‘Tu 1->’,n,’ co ‘,d,’ so chan’);

writeln(‘Tu 1->’,n,’ co ‘,n-d,’ so le’);

readln

end.