Viết Chương Trình tính tích các số tự nhiên đầu tiên cho đến khi tích đó bằng 100 thì dừng lại
viết chương trình tính tổng các số tự nhiên đầu tiên cho đến khi tổng đó lớn hoặc bằng 100 thì dừng lại
uses crt;
var i,t:integer;
begin
clrscr;
i:=1;
t:=0;
repeat
t:=t+i;
inc(i);
until t>=100;
writeln(t);
readln;
end.
viết chương trình tính tỗng các số tự nhiên đầu tiên cho đến khi dó bằng 10 thì dừng lại.
Cho mình bt đáp án s :D
đề:viết chương trình tính tổng các số tự nhiên đầu tiên cho đến khi tổng đó bằng 10 thì dừng lại. vậy đúng chưa
Viết chương trình tính tổng các số tự nhiên lẻ (chẳn) đầu tiên cho đến khi tổng
đó bằng 1000 thì dừng lại.
Giúp mik vì mai mik kt rùi :((
Cho chương trình Tính Tổng Các Số Tự Nhiên Từ S=1+2+3+ ...... (Khi Tổng S đầu tiên > 1000 thì dừng). Hỏi cộng bao nhiêu số?
Hãy Tìm lỗi trong chương trình và sửa lỗi viết lại chương trình cho đúng:
Program tinh_tong;
Var n S: Integer
Begin
n: 0;
S = 0;
While S< 1000 do
n:= n + 1;
S:= S + n
Writeln(‘Can cong’,n-1,’so va tong dau tien > 1000 la’, S);
Readln;
End.
mô tả thuật toán và viết chương trình tính tích 100 số tự nhiên đầu tiên
Mô tả thuật toán:
-Bước 1: i←0; s←1;
-Bước 2: i←i+1;
-Bước 3: s←s*i;
-Bước 4: Nếu i<=100 thì quay lại bước 2
-Bước 5: Xuất s
-Bước 6: Kết thúc
Viết chương trình thì kiểu dữ liệu của 100 số tự nhiên đầu tiên là lớn quá bạn
*Mô tả thuật toán:
- Bước 1: s <- 1
- Bước 2: i <- 1 đến 100 thì s <- s*i
- Bước 3: Xuất s
- Bước 4: Kết thúc thuật toán
*Viết chương trình:
Program tinh;
Uses crt;
Var s: longint;
i: integer;
Begin
Clrscr;
s:=1;
For i:=1 to 100 do s:=s*i;
Writeln(s);
Readln;
End.
cho chương trình tính tổng các số tự nhiên từ S=1+2+3+....( khi tổng S đầu tiên > 1000 thì dừng). Hỏi cộng bao nhiêu số?
câu 1:
uses crt;
var p,i:integer;
begin
clrscr;
p:=1;i:=1;while i<=5 do
begin
p:=p*i;i:=i+1;
end;
write(p);
readln;
end.
bai 2:
uses crt;var p,i:integer;begin clrscr; p:=1; i:=0; while i <=10 do begin
i:=i+1; if (i mod 2<>0) then p:=p*i; end; write(p); readln;end. bai 3:
uses crt;var n,i,p:integer;begin clrscr; write('nhap n: '); readln(n); i:=1; p:=1; while i<=n do begin if i mod 2=0 then p:=p*i; i:=i+1; end; write(p); readln;end.
*Cách khác: Dùng for
Câu 1:
uses crt;
var p,i:longint;
begin
p:=1;
for i:=1 to 4 do
p:=p*i;
writeln(p);
readln;
end.
Câu 2:
uses crt;
var i,s:longint;
begin
clrscr;
s:=1;
for i:=1 to 10 do
if i mod 2=1 then s:=s*i;
writeln(s);
readln;
end.
Câu 3:
uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
if i mod 2=0 then s:=s+i;
writeln(s);
readln;
end.
Viết chương trình tính:
- Tổng n số tự nhiên đầu tiên với n nhập từ bàn phím bằng câu lệnh với số lần lặp biết trước. (for… do).
- Tích các số từ 5 đến 30.
- Chu vi, diện tích hình chữ nhật, hình tròn, hình thang với các kích thước được nhập từ bàn phím.
Mình đang cần gấp
Tổng n số tự nhiên đầu tiên:
Var i,n,s:integer;
Begin
Write('n = ');
for i:=1 to n do
s:=s+i;
Write('Tong la ',s);
Readln
End.
Tích các số từ 5 đến 30
Var i,p:longint;
Begin
p:=1;
For i:=5 to 30 do
P:=p*i;
Write('Tich la ',p);
Readln
End.
Chu vi, diện tích hình chữ nhật:
var a,b,p,s:real;
begin
write('Chieu dai hcn = ');readln(a);
write('Chieu rong hcn = ');readln(b);
p:=(a+b)*2;
s:=a*b;
writeln('Chu vi hcn la ',p:10:2);
write('Dien tich hcn la ',s:10:2);
readln
end.
------------------------------------------------------------
Chu vi, diện tích hình tròn:
var r,c,s:real;
begin
write('Ban kinh = ');readln(r);
c:=2*3.14*r;
s:=3.14*r*r;
writeln('Chu vi hinh tron la ',c:10:2);
write('Dien tich hinh tron la ',s:10:2);
readln
end.
---------------------------------------------------
Chu vi, diện tích hình thang:
var dl,dn,cb1,cb2,h,p,s:real;
begin
write('Day lon = ');readln(dl);
write('Day be = ');readln(db);
write('Chieu cao = ');readln(h);
write('Canh ben thu nhat = ');readln(cb1);
write('Canh ben thu hai = ');readln(cb2);
p:=dl+db+cb1+cb2;
s:=(dl+db)*h/2;
writeln('Chu vi hinh thang la ',p:10:2);
write('Dien tich hinh thang la ',s:10:2);
readln
end.
#include <bits/stdc++.h>
using namespace std;
long long n,i,t;
int main()
{
cin>>n;
t=1;
for (int i=1; i<=n; i++) t=t*i;
cout<<t;
return 0;
}