Question

Bài 1: Viết chương trình, tính tổng.

S= 1+2+3+4+5

Answer 1

var S:integer;

begin

S:=1+2+3+4+5;

Writeln('tong la =',S);

readln

end.

Answer 2

Program Tinh_toan;

uses crt;

var i,n:integer;

S:longint;

begin

For i:=1 to 5 do S:= S+i;

write('tong S = ' , S);

readln

end.

Answer 3

var i,s:integer;

begin

s:=0;

for i:=1 to 5 do

s:=s+i;

writeln(' Tong la: ',s);

readln;

end.