Quảng cáo
1 câu trả lời 2431
program
uses crt;
var i,n :integer; S :qword;
begin
write('Nhap so n: '); readln(n);
For i:=1 to n do S:=S+2*i;
writeln('Ket qua la: ',S);
readln;
end.
Thêm câu 2 này
program CauHoi;
uses crt;
var i,n :integer; S :qword;
begin
write('Nhap so n: '); readln(n);
For i:=1 to n do S:=S+(2*i)+1;
writeln('Ket qua la: ',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 VIETJACK45560
-
Đã trả lời bởi chuyên gia
28860 -
Hỏi từ APP VIETJACK28486
Gửi báo cáo thành công!
