Viết chương trình in ra các số lẻ từ 1 đến n với n nhập từ bàn phím

0 bình luận về “Viết chương trình in ra các số lẻ từ 1 đến n với n nhập từ bàn phím”

1. #Nhii

   *Các bước thực hiện

   program B1;
   uses crt;
   var i,S,n:integer;
   begin
   clrscr;
   write(‘nhap so n:’);
   readln(n);
   i:=i;
   S:=0;
   while i <= n Do
   begin
   if i mod 2 <> 0 then
   S:=S+i;
   i:=i+1;
   end;
   writelln(‘tong so la :’);
   readln;
   end.

   *Chúc bạn học tốt*

   Bình luận