Bài 9. Làm việc với dãy số

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

Viết chương trình nhập vào số nguyên dương. Tính và in ra kết quả màn hình ;

- các số chia hết cho 3 từ 1 đến n

- có bao nhiêu số chia hết cho 3

- tổng các số đó

vd : nhập n = 20. in ra 

- các số chia hết cho 3 : 3 6 9 12 15 18

- có 6 số chia hết cho 3

- tổng là ; 63

Em cần gấp giúp ẹm huhu

Lê Hải Dương
7 tháng 3 2023 lúc 20:52

uses crt;

var i,n,d:longint;

begin 

d:=0;

writeln('nhapn=');read(n);

for i:=1 to n do

begin

if i mod 3=0 then write(i,' ');

if i mod 3=0 then d:=d+i;

end;

writeln('tong=',d);

readln;

end;

Lê Hải Dương
7 tháng 3 2023 lúc 20:53

 

 

 


Các câu hỏi tương tự
Trần Đức Duy
Xem chi tiết
Ánh sao
Xem chi tiết
Ánh sao
Xem chi tiết
Hùng Cường Nguyễn
Xem chi tiết
Hùng Anh Nguyễn Đăng
Xem chi tiết
Vinh Thái
Xem chi tiết
Học .com
Xem chi tiết
thanhlee 011
Xem chi tiết
Lê Thị Phương Dung
Xem chi tiết