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:
2 câu trả lời
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.
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.
Câu hỏi trong lớp
Xem thêm
