Quảng cáo
1 câu trả lời 263
3 năm trước
Program tinhtong_binhphuong_sochan;
Uses CRT;
Var S : Longint; i,N : Integer;
Begin
Clrscr;
Write('Nhap N = '); Readln(N);
S:=0;
For i := 1 to N do
If i mod 2 = 0 then
S:=S+i*i;
Write('S= ', 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 VIETJACK
Đã trả lời bởi chuyên gia
44988 -
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
34460 -
Đã trả lời bởi chuyên gia
30241 -
Hỏi từ APP VIETJACK27169
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
21825
Gửi báo cáo thành công!
