Question

viết chương trình tính tổng

S=7+8+9+10+11+12+13

Answer 1

uses crt;

var s:integer;

begin

s:=7+8+9+10+11+12+13;

write(s);

readln;

end.

Answer 2

Vậy cũng được nè:

uses crt;

var s:integer;

i:byte;

begin

for i:=7 to 13 do

s:=s+i;

write(s);

readln;

end.

Answer 3

bài dễ vậy mà cũng hỏi vậy bạn

Answer 4

uses crt;

var s,i,a:integer;

begin

clrscr;

a:=7;

s:=0;

for i:=1 to 7 do

begin

s:=s+a;

a:=a+1;

end;

writeln('ket qua la: ',s);

readln;

end.