Question

Viết chương trình nhậo vào 1 dãy nguyên gồm N phần tử (N<=50). Tính tổng bình phương các phần tử là bội của 5 trong dãy số. Đưa kết quả ra màn hình.

Answer 1

Đề thiếu rồi bạn

Answer 2

Var s,i,n:longint;

Begin

Write('nhap so luong so N = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(so);

If so mod 5 = 0 then s:=s+so*so;

End;

Write('Tong binh phuong cac boi cua 5 trong day la ',s);

Readln;

End.

Answer 3

Var s,i,n,so:longint;

Begin

Write('nhap so luong so N = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(so);

If so mod 5 = 0 then s:=s+so*so;

End;

Write('Tong binh phuong cac boi cua 5 trong day la ',s);

Readln;

End.