Đăng nhập để hỏi chi tiết
- Tin Học
- Lớp 8
- 30 điểm
- ngngoctamnhu2006 -
Viết chương trình : -Nhập vào số nguyên N . - Tính tổng các số chia hết cho 3 từ 1 đến N và xuất ra màn hình . - Thực hiện biến đếm xem có bao nhieu số chia hết cho 3 từ 1 đến N và xuất kết quả ra màn hình
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
TRẢ LỜI
Đây là câu trả lời đã được xác thực
Câu trả lời được xác thực chứa thông tin chính xác và đáng tin cậy, được xác nhận hoặc trả lời bởi các chuyên gia, giáo viên hàng đầu của chúng tôi.
Program Hotboy;
Uses crt;
Var i,n,dem,s : integer;
Begin
Clrscr;
Dem:=0;s:=0;
Write('nhap so nguyen N'); readln(n);
For i:=1 to n do
begin
If i mod 3= 0 then dem:=dem+1;
end;
for i:=1 to n do
begin
if i mod 3= 0 then S:=s+i;
end;
Writeln('tong cac so tu 1 den N chia het cho 3 la',S);
writeln(' so cac so chia het cho ba la',dem);
Readln
End.
Hãy giúp mọi người biết câu trả lời này thế nào?
51 vote
program hotrotinhoc;
var n,i.d: integer;
t: longint;
begin
readln(n);
t:=0; d:=0;
for i:=1 to n do
if i mod 3=0 then t:=t+i;
writeln('Tong cac so chia het cho 3 tu 1 den n la:',t);
for i:=1 to n do
if i mod 3=0 then inc(d);
write('Co ',d,' so chia het cho 3 tu 1 den N');
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
51 vote
Câu 1 : Viết chương trình : - Nhập vào các số nguyên N - Tính tích các số chia hết cho 4 từ 1 đến N và xuất kết quả ra màn hình - Thực hiện đếm xem có bao nhiêu số chia hết cho 4 từ 1 đến N và xuất kết quả ra màn hình Câu 2 : Viết chương trình : - Nhập vào các số nguyên N - Tính trung bình cộng các số từ 1 đến N và xuất kết quả ra màn hình Rút gọnCâu 1 : Viết chương trình : - Nhập vào các số nguyên N - Tính tích các số chia hết cho 4 từ 1 đến N và xuất kết quả ra màn hình - Thực hiện đếm xem có bao nhiêu số chia hết cho 4 từ 1 đến N và xuất kết quả ra màn hình Câu 2 : Viết chương trình : - Nhậ... xem thêm
bạn đăng lên đi
Hả? Là sao ạ?
đăng rồi ạ
sao em kh chay chuong trinh duoc a :<
bạn sửa lại var i,n,d: integer; nha mình nhầm ở dấu .d
Bạn muốn hỏi điều gì?
Đặt câu hỏiTham Gia Group Dành Cho Lớp 8 Chia Sẻ, Trao Đổi Tài Liệu Miễn Phí
Bảng tin
Bạn muốn hỏi điều gì?
Đặt câu hỏi
Cơ quan chủ quản: Công ty Cổ phần Công nghệ Giáo dục Thành Phát
Tải ứng dụng
Inbox: m.me/hoidap247online
Trụ sở: Tầng 7, Tòa Intracom, số 82 Dịch Vọng Hậu, Cầu Giấy, Hà Nội.
Giấy phép thiết lập mạng xã hội trên mạng số 331/GP-BTTTT do Bộ Thông tin và Truyền thông.
46
838
15
bài sai rồi nhé phải thêm begin và end; con sau câu lệnh lặp để thực hiện câu lệnh s:=s+i; nữa
5767
136700
6922
Ơ .-. Bài này mình chạy chương trình vẫn được mừ bạn?
46
838
15
For i:=1 to n do If i mod 3= 0 then dem:=dem+1;S:=s+i; Bạn không thấy sai à! Bạn chạy ra dem đúng chắc chắn là S sẽ sai Vì S không nằm trong vòng for.do nữa
5767
136700
6922
Uhmm,cảm ơn bạn nhiều nha