Viết chương trình nhập từ bàn phím số nguyên dương S . Tính và đưa ra màn hình tổng P của các số chia hết cho 8 trong đoạn từ 1 đến S
2 câu trả lời
Uses crt;
Var i,s:integer;p:longint;
BEGIN
clrscr;
write('Nhap s: ');readln(s);
For i:=1 to s do if i mod 8=0 then p:=p+i;
Writeln('Tong cac so tu 1 den ',s,' la: ',p);
Readln
End.
program az;
uses Crt;
var i,S : integer;
P : longint;
begin
clrscr;
P := 0;
Write('NHap S = '); readln(S):
For i:=1 to S do
begin
If (i mod 8 = 0) then P := P + i;
end;
Write('P = ',P);
readln
end.
