Viết chương trình Pascal tính tổng S=1+2+3+...+n ( Bằng câu lệnh while...do). Viết chương trình Pascal tính tổng S=1+2+3+...+n ( Bằng câu lệnh For...do). Yc: Cần chính xác do 60₫ của tui ó, ko chép mạng, no spam.

ngongocanhthu07

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 44 xem

1 trả lời

Thích Trả lời

phamhuyen12

1. (while..do)

program phuongt;
uses crt;
var i, s, n: integer;
begin
clrscr;
write('Nhap n = '); readln(n);
s:=0; i:=1;
while i<=n do
begin
s:=s+i;
i:=i+1;
end;
write('Tong s = ', s);
readln
end.

2. (For...do)

program phuongt;
uses crt;
var i, s, n: integer;
begin
clrscr;
write('Nhap n = '); readln(n);
s:=0;
for i:=1 to n do s:=s+i;
write('Tong s = ', s);
readln
end.

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

dieuly0302

While...do

program bai1;
uses crt;
var n,S,i:integer;
begin
clrscr;
write(' n = '); readln(n);
S:=0; i:=1;
while i<=n do
begin
S:=S+i;
i:=i+1;
end;
write('Tong la: ', S);
readln;
end.

For...do

program bai 2;
uses crt;
var n,S,i:integer;
begin
clrscr;
write(' n = '); readln(n) ;S:=0;

for i:=1 to n do S:=S+i;
write('Tong la: ', S);
readln;
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 2 bài ai nhanh sẽ được câu trả lời hay nhất

Câu 1: Phân tích mối quan hệ giữa hai loài sinh vật trong quần xã để chứng minh sự bảo vệ loài này bằng sự bảo vệ loài kia Câu 2: Xây dựng hai chuỗi thức ăn và lưới thức ăn

Tính tổng của các số tự nhiên x,biết 23,45<x<26,07

chứng minh a^2020+b^2020/c^2020+d^2020=(a+b)^2020/(c+d)^2020 với a/b=c/d

Giúp mình câu 1 vs ạ cảm ơn nhìu UwU

Bạn hãy giải thích tại sao thỏ lại ko dai sức bằng thú ăn thịt nó ? Làm giúp với, hứa cho 5s and ❤, ngày mai thi rùi 😭😭😭(●'◡'●)

Nêu đặc điểm nền kinh tế nông nghiệp bắc mĩ

Giúp em bài này với ạ em cảm ơn mn rất nhiều

Bài 1. Cho tam giác ABC, có góc A = 90º, d là đường thẳng qua C và vuông góc với BC; tia phân giác của góc B cắt AC ở D và cắt d ở E. Kẻ CH vuông góc với DE, H thuộc DE. Chứng minh CH là tia phân giác của góc DCE? Bài 2: Cho tam giác ABC, góc B > góc C, AD là tia phân giác a) Chứng minh góc ADC - ADB = góc B - C b) Phân giác góc ngoài tại A của tam giác ABC cắt BC ở E. Chứng minh góc AEB = 1/2 (B -C) Bài 3: Cho tam giác ABC, gọi D, E lần lượt là trung điểm của AC, AB. Trên tia đối của tia DB lấy M sao cho DM = DB; trên tia đối của tia EC lấy N sao cho EN = EC. Chứng minh A là trung điểm của MN? Bài 4: Cho tam giác ABC có góc A = 50°. Vẽ đoạn thẳng AI vuông góc và bằng AB (I và C khác phía với AB). Vẽ đoạn thẳng AK vuong góc và bằng AC (K và B khác phía với AC). Chứng minh: a) IC = BK b) IC vuông góc BK Bài 5: Cho tam giác ABC có góc A = 100°, M là trung điểm của BC, trên tia đối của MA lấy K sao cho MK = MA a) Tính số đo góc ABK? b) Ở phía ngoài tam giác ABC, vẽ AD vuông góc và bằng AB, AE vuông góc và bằng AC. Chứng minh hai tam giác ABK và DAE bằng nhau c) Chứng minh MA vuông góc DE Bài 6: Cho tam giác ABC có tia phân giác của góc ABC cắt cạnh AC ở D, tia phân giác của góc ACB cắt cạnh AB ở E. Biết BE + CD = BC. Tính số đo góc BAC?

Viết chữ "Dương Thu Ngọc" thật đẹp ạ ^w^ Lề:....................loading.................1%

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