Viết chương trình tính tổng của các số tự nhiên lẻ từ 3 đến 30

Bởi

Viết chương trình tính tổng của các số tự nhiên lẻ từ 3 đến 30

0 bình luận về “Viết chương trình tính tổng của các số tự nhiên lẻ từ 3 đến 30”

  1. program ct;

    uses crt;

    var S,i:integer;

    begin

    clrscr;

    S:=0;

    for i:=3 to 30 do

    if (i mod 2=1) then S:=S+i;

    writeln(‘tong cac so tu nhien le la’,S);

    readln

    end.

    Bình luận

Viết một bình luận