Viết 2 thuật toán khác nhau để thực hiện tính:
S = 1+3+5+...+n ( n lẻ )
S = 2+4+6+...+n ( n chẵn )
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
15 tháng 4 2022
uses crt;
var s,n:integer;
begin
clrscr;
s:=20;
n:=1;
while s>=5 do
begin
n:=n+1;
s:=s-n;
end;
writeln(s);
readln;
end.
7 tháng 4 2022
a: Thuật toán sẽ thực hiện 5 vòng lặp
Kết thúc thì S=0
b: uses crt;
var i,s,n:integer;
begin
clrscr;
s:=20;
n:=1;
while (s>=5) do
begin
n:=n+1;
s:=s-n;
end;
writeln(s);
readln;
end.
(n lẻ)
B1: Nhập n
B2: S←0; i←0;
B3: Nếu i>n thì in ra kết quả và kết thúc
B4: i←i+1; Nếu i là số lẻ thì S←S+i; Quay lại bước 3
(n chẵn ) tương tự