b) Viết chương trình xuất ra S=1+2+3+4+5+6=21

2 câu trả lời

uses crt;

var i, s : integer;

begin

clrscr;

s := 0;

for i := 1 to 6 do s := s + i;

write('S = 1 + 2 + 3 + 4 + 5 + 6 = ', s);

readln

end.

uses crt;
begin
 clrscr;
  write('1+2+3+4+5+6=',(6+1)*6div 2);
 readln
end.