Bài 3. Chương trình máy tính và dữ liệu

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Hoàng Lê Song Thư

Dùng vòng lặp For...to...do viết chương trình S (n là số tự nhiên được nhập từ bàn phím)

a) S = 1 + 2 + 3 + 4 + ... + n

b) S = 2 + 4 + 6 + ... + n

c) S = 3 + 5 + 7 + ... + n

d) S = 1/3 + 1/5 + 1/7 + ... 1/n (với n là số lẻ theo thứ tự tăng dần)

Help me >< Sắp phải nộp rồi nên các bạn giúp mình với TvT

Thảo Phương
29 tháng 3 2020 lúc 20:20

1.Var i,n : integer;

S : real;

Begin write ('n = '); read (n);

S:= 0; For i:=1 to n do S:= S + i;

Write (S);

Readln;

End

Khách vãng lai đã xóa
Thảo Phương
29 tháng 3 2020 lúc 20:21

b)program tinh_tong;

uses crt;

var j,k,i,n:integer;

s:real;

begin clrscr;

repeat write('Nhap n=');

readln(n);

if n>=1 then break;

writeln('Hay nhap n>=1');

until false;

s:=0;

for i:=1 to n do s:=s+2*i;

writeln('Tong: ',s:4:2);

readln

end.

Khách vãng lai đã xóa
Minh Lệ
29 tháng 3 2020 lúc 21:46

b)

Program hotrotinhoc;

var i,n: integer;

s: longint;

begin

write('N='); readln(n);

s:=0;

for i:=1 to n do if i mod 2=0 then s:=s+i;

write('S=',s);

readln

end.

c)

Program hotrotinhoc;

var i,n: integer;

s: longint;

begin

write('N='); readln(n);

s:=0;

for i:=1 to n do if i mod 2=1 then s:=s+i;

write('S=',s);

readln

end.

d)

Program hotrotinhoc;

var i,n: integer;

s: real;

begin

write('N='); readln(n);

s:=0;

for i:=1 to n do if i mod 2=1 then s:=s+1/i;

write('S=',s:1:2);

readln

end.

Khách vãng lai đã xóa
Phan Tiến Đạt
30 tháng 3 2020 lúc 10:18

A)

uses crt;
var tong,n,i:integer;
begin
clrscr; tong:= 0;
write('Nhap N: ');readln(n);
for i:= 1 to n do tong:= tong + i;
write('S = ',tong);
readln
end.

B)

uses crt;
var tong,n,i:integer;
begin
clrscr; tong:= 0;
write('Nhap N: ');readln(n);
for i:= 1 to n do
if i mod 2 = 0 then tong:= tong + i;
write('S = ',tong);
readln
end.

C)

uses crt;
var tong,n,i:integer;
begin
clrscr; tong:= 0;
write('Nhap N: ');readln(n);
for i:= 3 to n do
if i mod 2 <> 0 then tong:= tong + i;
write('S = ',tong);
readln
end.

D)

uses crt;
var tong:real;
n,i:integer;
begin
clrscr; tong:= 0;
write('Nhap N: ');readln(n);
for i:= 3 to n do
if i mod 2 <> 0 then tong:= tong + (1/i);
write('S = ',tong:0:2);
readln
end.

Khách vãng lai đã xóa

Các câu hỏi tương tự
Dung Nguyễn
Xem chi tiết
Mộc Trà
Xem chi tiết
thành nam nguyễn
Xem chi tiết
lê chí hiếu
Xem chi tiết
Việt Nguyễn
Xem chi tiết
Mi Bạc Hà
Xem chi tiết
levietcuong
Xem chi tiết
Thương Phạm
Xem chi tiết
Trần Uyên
Xem chi tiết