Viết Chương Trình Nhập Vào Số Tự Nhiên N In Ra Màn Hình Tính Tổng ...

Tất cả Toán học Vật Lý Hóa học Văn học Lịch sử Địa lý Sinh học Giáo dục công dân Tin học Tiếng anh Công nghệ Khoa học Tự nhiên Lịch sử và Địa lý Tu Nguyen Tu Nguyen Hỏi từ APP VIETJACK đã hỏi trong Lớp 8 Tin học · 22:39 31/03/2022 Theo dõi Báo cáo Viết chương trình nhập vào số tự nhiên N in ra màn hình tính tổng các số chẵn và tổng các số lẻ trong khoảng từ 1 đến N Trả Lời (+5 điểm) Hỏi câu khác Hỏi chi tiết ...Xem thêm

Quảng cáo

2 câu trả lời 6751

Cáp Thành Duy 3 năm trước

var i,n:integer;tc,tl:longint;

begin

  readln(n);

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

 writeln('Tong cac so chan la: ',tc);

 writeln('Tong cac so le la: ',tl);

end.

0 bình luận 1 ( 1.0 ) Đăng nhập để hỏi chi tiết Tường Cát 3 năm trước

1.1. Tính tổng các số chẵn trong khoảng từ 1 đến n (với n là số tự nhiên được nhập từ bàn phím).

Program Tong_chan;

Uses crt;

Var i,n,tong:integer;

begin

clrscr;

write('Nhap vao n ='); readln(n);

Tong:=0;

for i:=1 to n do

if i mod 2=0 then tong:=tong+i;

Write('Tong cac so chan la:', tong);

readln

end.

2.2. Tính tổng các số lẻ trong khoảng từ 1 đến n (với n là số tự nhiên được nhập từ bàn phím).

Program Tong_le;

Uses crt;

Var i,n,tong:integer;

begin

clrscr;

write('Nhap vao n ='); readln(n);

tong:=0;

for i:=1 to n do

if i mod 2<>0 then tong:=tong+i;

Write('Tong cac so le la:', tong);

readln

end.

0 bình luận Đăng nhập để hỏi chi tiết

Quảng cáo

Bạn muốn hỏi bài tập?

Đặt câu hỏi

Câu hỏi hot cùng chủ đề

• hằng là gì  ? nêu cú pháp khai báo hằng

  Trả lời (19) Xem đáp án » 79954

• viết chương trình nhập vào 2 số nguyên a và b. In ra màn hình giá trị lớn nhất. Giup mình với ạ

  Trả lời (12) Xem đáp án » 60578
• Hỏi từ APP VIETJACK Cú pháp ,cách hoạt động của lệnh lặp for...đó?cho ví dụ minh hoạ Trả lời (8) Xem đáp án » 44980
• Hỏi từ APP VIETJACK Sô biến có thể khai báo tối đa trong 1 chương trình là bao nhiêuA. Chỉ 1 biến cho mỗi kiểu dữ liệuB.Chỉ hạn chế bởi dung lượng bộ nhớC.Không giới hạnD.10 biến Trả lời (21) Xem đáp án » 34450

• Cú pháp lệnh lặp với số lần chưa biết trước:

     A. While < điều kiện > to < câu lệnh >;

     B. While < điều kiện > to < câu lệnh 1 > do < câu lệnh 2 >;

     C. While < điều kiện > do ;< câu lệnh >;

     D. While < điều kiện > do < câu lệnh >;