Hệ điều hành

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Sha Dow

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).

Nguyễn Lê Phước Thịnh
1 tháng 4 2020 lúc 12:48

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.

Khách vãng lai đã xóa

Các câu hỏi tương tự
Nguyễn Trần Hoàng
Xem chi tiết
Lê Thị Giàu Em
Xem chi tiết
Minamoto Natsuko
Xem chi tiết
tao quen roi
Xem chi tiết
Đặng Ngọc Thanh Nhàn
Xem chi tiết
lulu béo
Xem chi tiết
Project EDM
Xem chi tiết
Quynh Nhu Le
Xem chi tiết
Phạm Ngân Hà
Xem chi tiết