Viết Chương Trình Pascal Tính Tổng S=1+2+3+...+n ( Bằng Câu Lệnh ...

Có thể bạn quan tâm

Tìm×

Tìm kiếm với hình ảnh

Vui lòng chỉ chọn một câu hỏi

Tìm đáp án

- Đăng nhập
- |
- Đăng ký

Hoidap247.com Nhanh chóng, chính xác

Hãy đăng nhập hoặc tạo tài khoản miễn phí!

Đăng nhậpĐăng ký

Đặt câu hỏi

logo

Lưu vào

+
Danh mục mới

Lưu

Harimi
Chưa có nhóm

Trả lời
2
Điểm
708
Cảm ơn
2

Tin Học
Lớp 8
60 điểm
Harimi - 20:49:18 24/03/2021

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.

Hỏi chi tiết
Báo vi phạm

Hãy luôn nhớ cảm ơn và vote 5* nếu câu trả lời hữu ích nhé!

TRẢ LỜI

Yonnii
Only Once (O2)

Trả lời
4772
Điểm
86101
Cảm ơn
7958

Yonnii

Câu trả lời hay nhất!
24/03/2021

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); readlnend.

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); readlnend.

Hãy giúp mọi người biết câu trả lời này thế nào?

avatar

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar5starstarstarstarstar1 voteGửiHủy

Cảm ơn 1
Báo vi phạm

- Harimi
- Chưa có nhóm
- Trả lời
  2
- Điểm
  708
- Cảm ơn
  2
Phuongt là j thế ak?
- Yonnii
- Only Once (O2)
- Trả lời
  4772
- Điểm
  86101
- Cảm ơn
  7958
tên chương trình của mình nha, bạn có thể thay đổi thành tên bạn!.

Đăng nhập để hỏi chi tiết

ledoandat
Chưa có nhóm

Trả lời
144
Điểm
1975
Cảm ơn
53

ledoandat

03/04/2021

While...do

program bai1;uses crt;var n,S,i:integer;beginclrscr; 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;beginclrscr;write(' n = '); readln(n) ;S:=0;

for i:=1 to n do S:=S+i;write('Tong la: ', S);readln;end.

Hãy giúp mọi người biết câu trả lời này thế nào?