Yến Nguyễn
Hỏi từ APP VIETJACK
Viết chương trình tính tổng các số tự nhiên chia hết cho3ko vượt quá ncho trước (voiwsn là số nguyên nhập vào từ bàn phím)
Quảng cáo
1 câu trả lời 291
program tinh_tong_cac_so_tu_nhien_chia_het_cho_3;
uses crt;
var i,N:integer;
S:longint;
begin
writeln('Nhap so N=');
readln(N);
S:=0;
For i:=1 to N do
If i mod 3=0 then S:=S+i;
writeln('Tong la',S);
readln;
end.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK45502
-
Hỏi từ APP VIETJACK28395
Gửi báo cáo thành công!
