viết chương trình tính tổng S=1+3+5+7+9+-..+N với N được nhập từ bàn phím với in tên lớp của mình ra bắt buốc chương trình phải chính xác 100%

0 bình luận về “viết chương trình tính tổng S=1+3+5+7+9+-..+N với N được nhập từ bàn phím với in tên lớp của mình ra bắt buốc chương trình phải chính xác 100%”

1. program oken;
   uses crt;
   var n,i,s: longint;
   begin   
       clrscr;
       write(‘Nhap 1 so bat ky: ‘); readln(n);
       s:=0;
       for i:=1 to n do
           if (i mod 2=1) then 
               s:=s+i;
       writeln(‘Tong S: ‘,s);
       writeln(‘Ho va Ten: {ban ghi ten o day}’);
       writeln(‘Lop: {ban ghi lop o day}’);
       {Nho xoa hai “dong ban ghi..”., sau khi ghi ten va lop}
       readln;
   end.

   Bình luận

2. program ct;

   uses crt;

   var i,s,n:integer;

   begin

   clrscr;

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

   s:=0;

   for i:=1 to n do

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

   writeln(‘tong la:’,s);

   writeln(‘nhap ten cua ban:’);

   writeln(‘nhao lop cua ban:’);

   readln

   end.

   Bình luận