1. Viết Chương Trình Tính Tổng S=1+2+3+..+n. Trong đó N Là Số ...

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

phandinhson1975
Chưa có nhóm

Trả lời
0
Điểm
33
Cảm ơn
0

Tin Học
Lớp 8
10 điểm
phandinhson1975 - 10:38:17 10/06/2020

1. Viết chương trình tính tổng S=1+2+3+..+n. Trong đó n là số nguyên nhập từ bàn phím. 2.Viết chương trình tính tổng 200 số nguyên đầu tiên. 3.Viết chương trình tính tích 30 số nguyên đầu tiên. 4.Viết chương trình tính n! 5.Viết chương trình tính x

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

trangthao118
Chưa có nhóm

Trả lời
1003
Điểm
15884
Cảm ơn
530

trangthao118

10/06/2020

Đây là câu trả lời đã được xác thực

Câu trả lời được xác thực chứa thông tin chính xác và đáng tin cậy, được xác nhận hoặc trả lời bởi các chuyên gia, giáo viên hàng đầu của chúng tôi.

program ct;

uses crt;

var s,i,n:integer;

begin

clrscr;

write('nhap n:=');readln(n);

s:=0;

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

writeln('tong la:',s);

readln

end.

program ct;

uses crt;

var t,n,i:integer;

begin

clrscr;

t:=0;

for i:=1 to 200 do t:=t+i;

writeln('tong cua 200 so nguyen dau tien la:',t);

readln

end.

program ct;

uses crt;

var tich,n,i:integer;

begin

clrscr;

tich:=1;

for i:=1 to 30 do tich:=tich*i;

writeln('tich cua 30 so nguyen dau tien la:',tich);

readln

end.

program ct;

uses crt;

var i,n,a:integer;

begin

clrscr;

a:=1;

for i:=1 to a do a:=a*i;

writeln('n:=',a);

readln

end.

5. Thiếu dữ kiện

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

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar5starstarstarstarstar8 voteGửiHủy

Cảm ơn 6

Xem thêm (5)

- trangthao118
- Chưa có nhóm
- Trả lời
  1003
- Điểm
  15884
- Cảm ơn
  530
vậy thì mình làm tới câu 4 thôi
- trangthao118
- Chưa có nhóm
- Trả lời
  1003
- Điểm
  15884
- Cảm ơn
  530
mà cho mình hỏi bạn học lớp mấy vậy
- Datdoan03
- Chưa có nhóm
- Trả lời
  869
- Điểm
  24096
- Cảm ơn
  642
8.
- phandinhson1975
- Chưa có nhóm
- Trả lời
  0
- Điểm
  33
- Cảm ơn
  0
mình cx ko bik nx á bạn tại thầy đưa đề vậy í
- phamthiphuongdung6
- Chưa có nhóm
- Trả lời
  0
- Điểm
  235
- Cảm ơn
  0
X^n mà bạn
- hevphuc18062007
- Chưa có nhóm
- Trả lời
  0
- Điểm
  180
- Cảm ơn
  0
x mũ n nha
- Nsjsksnskks
- Chưa có nhóm
- Trả lời
  0
- Điểm
  30
- Cảm ơn
  0
Giải jup câu 5 ik ạ x mũ n á
- doanmnthla
- Chưa có nhóm
- Trả lời
  35
- Điểm
  455
- Cảm ơn
  11
câu 1 có đúng ko

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

Datdoan03
Chưa có nhóm

Trả lời
869
Điểm
24096
Cảm ơn
642

Datdoan03

10/06/2020

program ct;

uses crt;

var i,n:integer;

S:longint;

begin clrscr;

writeln('Nhap so n: '); readln(n);

S:=0;

for i:=1 to n do

S:=S+i;

writeln('Tong S la: ',S);

readln;

end.

program ct;

uses crt;

var i,n:integer;

S:longint;

begin clrscr;

S:=0;

for i:=1 to 200 do

S:=S+i;

writeln('Tong 200 so nguyen dau tien la: ',S);

readln;

end.

program ct;

uses crt;

var i,n:integer;

T:longint;

begin clrscr;

T:=1;

for i:=1 to 30 do

T:=T*i;

writeln('Tich 30 so tu nhien dau tien la: ',S);

readln;

end.

program ct;

uses crt;

var i,n:integer;

gt:longint;

begin clrscr;

gt:=1;

for i:=1 to n do

gt:=gt*i;

writeln('n!= ',gt);

readln;

end.

Học tốt!

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

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar5starstarstarstarstar1 voteGửiHủy

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

- thuonghai142
- Because no no no
- Trả lời
  1076
- Điểm
  31401
- Cảm ơn
  1647
cau 1 co sai ko ạ
- dichduongthienty
- Chưa có nhóm
- Trả lời
  6
- Điểm
  1056
- Cảm ơn
  1
Theo mik đúng r ák