viết chương trình cho F=20+21+22+...+n tin học 8

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