1 câu trả lời
program oken;
uses crt;
var F,n,i: qword;
begin
clrscr;
writeln('nhap so n: '); readln(n);
f:=0;
for i:=20 to n do
f:=f+i;
writeln('F=',f);
readln;
end.
Câu hỏi trong lớp
Xem thêm