Viết phương trình: -Nhập vào số nguyên N -Tính tổng các số chẵn nhỏ hơn N và xuất kết quả ra màn hình

0 bình luận về “Viết phương trình: -Nhập vào số nguyên N -Tính tổng các số chẵn nhỏ hơn N và xuất kết quả ra màn hình”

1. uses crt;

   var i,n,tong:integer;

   begin

   clrscr;

   write(‘Nhap N: ‘);readln(n);

   tong:=0;

   for i:= 1 to n – 1 do if i mod 2 = 0 then tong:=tong+i;

   writeln(‘Tong cac so chan nho hon ‘,n,’ la: ‘,tong);

   readln;

   end.

   Bình luận

2. program oken;

   uses crt;

   var n,chan:integer;

   begin

   clrscr;

   write(‘nhap n: ‘); readln(n);

   for i:=2 to n-1 do if i mod 2 =0 then chan:=chan+n;

   writeln(‘tong cac so chan: ‘,chan);

   readln;

   end.

   Bình luận