Question

Viết chương trình tính tổng từ 1 đến 5.

Answer 1

Cách For do

Program BTH;
uses crt;
var s,i:longint;
Begin
        clrscr;
        For i:=1 to 5 do s:=s+i;
        writeln('Tong cac so tu 1 den 5 la: ',s);
        readln;
end.

Cách While do

Program BTH;
uses crt;
var s,i:longint;
Begin
        clrscr;
        While i5 do
        Begin
                i:=i+1;
                s:=s+i;
        end;
        writeln('Tong day so tu 1 den 5 la: ',s);
        readln;
end.

Answer 2

Program tinhtong ;
var i, tong : Integer ;
begin
for i := 1 to 5 do
tong := tong + i ;
writeln ( ' ket qua : ' , tong ) ;
readln ;
end.