Question

Tổng số học sinh trường THCS Đông Mỹ tham gia lao động làm sạch môi trường hưởng ứng
ngày môi trường thế giới 2020 là một số nguyên dương N (0<N<1000).Em hãy lập trình in ra màn
hình kết quả sau.
Dòng 1: Số lượng các số nguyên lẻ từ 1 đến N.
Dòng 2: Số lượng các số nguyên chẵn từ 1 đến N.
Dòng 3: Trung bình cộng các số nguyên từ 1 đến N (lấy kết quả chính xác đến chữ số thập
phân thứ 2).

Answer 1

uses crt;
var n,dem,dem1,i,t:integer;
tbc:real;
begin
clrscr;
write('n='); readln(n);
if (0<n) and (n<1000) then
begin
{----------------------dong-1----------------------}
dem:=0;
for i:=1 to n do
if i mod 2=1 then inc(dem);
writeln('so luong cac so nguyen le tu 1 toi ',n,' la: ',dem);
{---------------------dong-2-----------------------}
dem1:=0;
for i:=1 to n do
if i mod 2=0 then inc(dem1);
writeln('so luong cac so nguyen chan tu 1 toi ',n,' la: ',dem1);
{--------------------dong-3------------------------}
t:=0;
for i:=1 to n do
t:=t+i;
tbc:=t/n;
writeln('trung binh cong cac so nguyen tu 1 toi ',n,' la: ',tbc:4:2);
end
else writeln('vui long nhap lai');
readln;
end.