viết chương trình giúp mình với ạ! Bài 1: viết chương trình tính tổng của N số tự nhiên. Với số N đc nhập từ bàn phím. Viết bằng lệnh lặp for..to...do. Bài 2: Viết chương trình tính tổng của N số tự nhiên. Với số N đc nhập từ bàn phím. Viết bằng lệnh lặp While...do. Bài 3: Viết

nguyenhuonggiang710

2 năm trước

viết chương trình giúp mình với ạ! Bài 1: viết chương trình tính tổng của N số tự nhiên. Với số N đc nhập từ bàn phím. Viết bằng lệnh lặp for..to...do. Bài 2: Viết chương trình tính tổng của N số tự nhiên. Với số N đc nhập từ bàn phím. Viết bằng lệnh lặp While...do. Bài 3: Viết chương trình tính tổng của S=1/1+1/2+1/3+...+1/N. Với số N đc nhập từ bàn phím. Viết bằng lệnh lặp for...to..do. Bài 4: Viết chương trình tính tổng của S=1/1+1/2+1/3+...+1/N Với số N đc nhập từ bàn phím. Viết bằng lệnh lặp While...do.

Loga Sinh Học lớp 12

0 lượt thích 26 xem

1 trả lời

Thích Trả lời

haiprokikimo

Bai 1

var n,i,s,a:integer;

begin

write('Nhap n: ');readln(n);

for i:=1 to n do begin

write('Nhap so thu ',i,': ');readln(a);

s:=s+a;

end;

writeln('Tong=',s);

readln

end.

Bai 2

var n,i,s,a:integer;

begin

write('Nhap n: ');readln(n);

i:=1;

while i<=n do begin

write('Nhap so thu ',i,': ');readln(a);

s:=s+a;

i:=i+1;

end;

writeln('Tong=',s);

readln

end.

Bai 3

var n,i,s:integer;

begin

write('Nhap n: ');readln(n);

for i:=1 to n do s:=s+1/i;

writeln('Tong=',s);

readln

end.

Bai 4

var n,i,s:integer;

begin

write('Nhap n: ');readln(n);

i:=1;

while i<=n do begin

s:=s+1/i;

i:=i+1;

end;

writeln('Tong=',s);

readln

end.

Vote (0) Phản hồi (0) 2 năm trước

cuanhotieubanggiai

uses crt;
var i,n,t:longword;
s:real;
begin
clrscr;
readln(n);
for i:=1 to n do t:=t+i;
writeln(t);
readkey;
end.

==================

uses crt;
var i,n,t:longword;
s:real;
begin
clrscr;
readln(n);
i:=1;
while i<=n do
begin
t:=t+i;
inc(i);
end;
writeln(t);
readkey;
end.

==================

uses crt;
var i,n,t:longword;
s:real;
begin
clrscr;
readln(n);
for i:=1 to n do s:=s+1/i;
writeln(s:0:2);
readkey;
end.

==================

uses crt;
var i,n,t:longword;
s:real;
begin
clrscr;
readln(n);
i:=1;
while i<=n do
begin
s:=s+1/i;
inc(i);
end;
writeln(s:0:2);
readkey;
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Giúp mình vs ạ cần cực gấp luôn

a, (7+x) * 4 + x = 108 b, ( x+ 15) : 3 = 3 x 8

Cho A= $\frac{1}{2^2}$ + $\frac{1}{4^2}$ + $\frac{1}{6^2}$ + $\frac{1}{8^2}$ +...+$\frac{1}{20^2}$ Chứng tỏ A< $\frac{1}{2}$ AUTO CTLHN+5 SAO

phân tích những biểu hiện tín ngưỡng nhân gian Việt Nam (lịch sử 10 bài 24)

máy mình bị hư phím caplock nên ko ghi in được. giúp mình với

Tả sân trường em trong 1 buổi sáng mùa xuân khi chưa vào lớp học (no copy nha )

Bài 3 các bạn nhé đặt cho mình câu nghi vấn với câu cầu khiến thôi ( không cần viết đoạn văn ) cảm ơn

một thửa ruộng hình thang có đáy lớn là 37m đáy bé là 3/5đáy lớn chiiều cao là 25cm cứ 5m2 thu được 3kkg thóc.tính số tạ thóc

|(-11)/15 + x| - 40/23 = (-17)/23

Ai giỏi toán giúp em với em hứa vote 5 s và ctlhn

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến