Nhập hai số nguyên dương m,n đưa ra tổng các số lẻ trong phạm vi từ m đến N a) viết thuật toán Các bước:

0 bình luận về “Nhập hai số nguyên dương m,n đưa ra tổng các số lẻ trong phạm vi từ m đến N a) viết thuật toán Các bước:”

1. Mình viết luôn Ctr bạn dựa vào viết thuật toán nhaa.

   uses crt;

   var a:array[1..100] of longint;

   M,N,i:longint;

   begin

   write(‘nhap m,n: ‘);readln(m,n);  {nếu cần thiết bạn viết thêm lệnh kiểm tra xem m<n hay không}     

   for i:=m to n do

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

   write(‘Tong cac so le tu m den n la: ‘tong);

   readln

   end.

   Bình luận

2. Thuật toán

   Bước 1: Nhập hai số nguyên dương $M,N $ sao cho $ M<N$

   Bước 2: Cho biến i chạy từ M đến N

   => nếu i mod 2=1 => i là số lẻ => gán $S:=S+i;$

   Bước 3: In ra kết quả và kết thúc thuật toán 

   Chương trình tham khảo 

   Program Hotboy ;

   Uses crt;

   Var i,m,n ,s : integer;

   for i:=m to n do

   Begin

   Clrscr;

   S:=0;

   If i mod 2 =1 then

   s:=s+i;

   End;

   write(‘Tong cac so tu m den n le la’,S);

   readln

   end.

    

   Bình luận