Tính tổng các số chẵn nhỏ hơn hoặc bằng 9

2 câu trả lời

Program BTH;
uses crt;
var s,i:longint;
Begin
        clrscr;
        For i:=1 to 9 do
                If i mod 2=0 then s:=s+i;
        write('Tong cac so tren la: ',s);
        readln;
end.

Program Tinhtong;

uses crt;

Var i, s : integer;

Begin

For i := 1 to 9 do

If i mod 2 = 0 then s := s+i;

Writeln('Tong cua cac so chan la :', s);

Readln

End.

Câu hỏi trong lớp Xem thêm