viết chương trình tính tông M=10+12+14+...+200

2 câu trả lời

Program Tinhtong;

Uses crt;

Var i, M : integer;

Begin clrscr;

For i := 10 to 200 do

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

Writeln('Tong M co gia tri la:', M );

Readln

End.

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

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