Viết chương trình nhập vào giá trị nguyên dương M từ bàn phím hãy tính tổng bình phương của tất cả số nguyên dương là bội của 5 có giá trị bé hơn hoặc bằng m
1 câu trả lời
Program BTT;
Uses crt;
Var m,i: longint;
s: qword;
Begin
Clrscr;
Write('Nhap so m: '); Readln(m);
For i:=1 to m do
If i mod 5 = 0 then s:=s+sqr(i);
Write('Tong binh phuong: ',s);
Readln
End.
