tính s bằng 2+4+6+8+10 với n là số tự nhiên xuất ra màn hình giá trị S

0 bình luận về “tính s bằng 2+4+6+8+10 với n là số tự nhiên xuất ra màn hình giá trị S”

1. uses crt;

   var i,n,s: integer;

   begin

   clrscr;

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

   for i:=1 to n do

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

   writeln (‘tong la: ‘,s);

   readln;

   end.

   Bình luận

2. uses crt;
   var i,n,s:integer;
   begin
         clrscr;
         s:=0;
         write(‘Nhap n: ‘); readln(n);
         for i:=1 to n do if i mod 2=0 then s:=s+i;
         write(s);
         readln;
   end.

   Bình luận