Viết chương trình nhập vào N số tự nhiên đầu tiên (từ bàn phím ) . hãy in ra màn hình tổng các số chia hết cho 5
Giúp em với ạ
2 câu trả lời
Program baitap;
Uses crt;
Var N,i:integer;
S:longint;
Begin
Clrscr;
Write('N='); Readln(N);
S:=0;
For i:=1 to N do
If i mod 5=0 then S:=S+i;
Writeln('Tong cac so chia het cho 5:',S);
Readln
End.
uses crt;
var n,i: integer;
tong: longint;
begin
clrscr;
write('Nhap N: ');
readln(n);
tong:=0;
for i:=1 to n do
if i mod 5=0 then S:=S+i;
writeln('Ket qua: ', tong);
readln;
end.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
