Bài 7. Câu lênh lặp

HT
1.Viết chương trình nhập một số nguyên dương n a)In ra màn hình các số chia hết cho 3 trong khoảng từ 1đến n b) Tính tổng các số chia hết cho 3 từ 1 đến n
NT
7 tháng 3 2021 lúc 18:35

uses crt;

var n,i,t:integer;

begin

clrscr;

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

t:=0;

for i:=1 to n do 

  if i mod 3=0 then 

begin

write(i:4);

t:=t+i;

end;

writeln;

writeln('Tong cac so chia het cho 3 la: ',t);

readln;

end.

Bình luận (0)
BT
7 tháng 3 2021 lúc 21:29

Bình luận (0)

Các câu hỏi tương tự
LP
Xem chi tiết
PK
Xem chi tiết
LK
Xem chi tiết
NN
Xem chi tiết
BT
Xem chi tiết
BT
Xem chi tiết
TU
Xem chi tiết
H24
Xem chi tiết
H24
Xem chi tiết