viết chương trình tính tổng của các số nguyên lẻ từ 1 đến 20

0 bình luận về “viết chương trình tính tổng của các số nguyên lẻ từ 1 đến 20”

1. Proram Tinh_Tong;

   Var S,i: Integer;

   Begin

   S :=0;

   For i:=1 to 20 do

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

   Write(‘S= ‘,S);

   Readln;

   End.

   Bình luận

2. @Meoss_

   Program Tinh_tong3;

   Uses Crt;

   Var i,n,S:integer;

   Begin

   Clrscr;

   Writeln(‘Ban hay nhap n’); Readln(n);

   S:=0;

    For i:=1 to 20 do

   begin

     if i mod 2 <> 0 then S:=S+i; end;

   Writeln(‘ Tong cac so le tu 1 den 20 la ‘, S );

    Readln;

   End.

   Bình luận