viết chương trình cho bài toán sau:
1, Tính tổng S=1+3+5+…+n (n là số lẻ được nhập vào từ bàn phím)
2, Tìm n sao cho S=1+2+3+…+n ( s>500, s nhỏ nhất)
viết chương trình cho bài toán sau:
1, Tính tổng S=1+3+5+…+n (n là số lẻ được nhập vào từ bàn phím)
2, Tìm n sao cho S=1+2+3+…+n ( s>500, s nhỏ nhất)
1)
uses crt;
var tong:word;
n,i:integer;
BEGIN
clrscr;
write(‘Nhap n:’); readln(n);
tong:=0;
i:=3; tong:=1;
while i<=n do
begin
tong:=tong+i;
i:=i+2;
end;
write(‘S=’,tong);
readln
END.
2)
uses crt;
var s:word;
n:integer;
BEGIN
clrscr;
n:=1; s:=1;
while s<=500 do
begin
inc(n);
s:=s+n;
end;
writeln(‘S=’,s);
write(‘N=’,n);
readln
END.
Xin ctlhn!
1/
uses crt;
var i,n,s: integer;
begin
clrscr;
write (‘nhap n: ‘); readln (n);
for i:=1 to n do if i mod 2<>0 then s:=s+1;
writeln (‘tong la: ‘,s);
readln;
end.
2/
uses crt;
var i,n,s,ss: integer;
begin
clrscr;
write (‘nhap s: ‘); readln (s);
repeat
i:=i+1;
ss:=ss+i;
if ss=s then n:=i;
until ss=s;
writeln (‘gia tri cua n la: ‘,n);
readln;
end.