Hãy mô tả thuật toán tìm số tự nhiên N nhỏ nhất để tích các số tự nhiên từ 1 đến N lớn hơn 1000000. Sau đó hãy viết công thức Pascal tương ứng cho thuật toán đó Viết CT nhập vào số N nguyên. Nếu nhập N <0 thì yêu cầu nhập kaij. Sau đó in ra màn hình tích các số từ 1 đến N

anhdanko2k1

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 37 xem

1 trả lời

Thích Trả lời

trinq75

Bài 1:

Thuật toán:

B1: n:=1; S:=1;

B2: Nếu S>1000000 thì chuyển đến B4

B3: n:=n+1; S:=S*n; Quay lại B2

B4: In N và S. Kết thúc

Chương trình:

program tim_n;

uses crt;

var n,s:longint;

begin

clrscr;

n:=1; S:=1;

while S<=1000000 do

begin

n:=n+1;

S::=S*n;

end;

write('n= ',n,' va khi do S= ',s);

readln;

end.

Bài 2:

program tich_N;

uses crt;

var N,i:integer;

tich:int64;

begin

clrscr;

repeat

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

if n<0 then writeln('Nhap lai! ');

until n>=0;

if n=0 then tich:=0

else

begin

tich:=1;

for i:=1 to n do

tich:=tich*i;

end;

write('Tich cac so tu 1 den ',n,' la: ',tich);

readln;

end.

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

emlaronnhat1

C1:

Đáp án:...

Giải thích các bước giải:

MTTT:
B1: N:=1; S;=1;
B2: Nếu S>1000000 thì ->B4
B3: N:= N+1; S:=S*n;
B4: In ra màn hình kết quả của N và S và kết thúc TToan
C2:
Đáp án:...
Giải thích các bước giải:

Uses crt;

Var n, S:longint;

Begin

Clrscr;

Repeat

Writeln('Nhap so n: '); Readln(n);

Until n>0;

S:=1;

While n>0 do

begin

S:=S*n;

n:=n-1;

End;

Writeln('Vay tich cua chung la : 'S);

Readln

End.
*Nhớ tick cho mình nhé! Thanks so much! :D*

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

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

Vẽ mầm cuteo nha. . Mocmoc???

hỗn hợp A gồm NO và NO2 có tỉ khối hơi đối với không khí là 1. tính phần trăm về thể tích và khối lượng của mỗi khí trong chất đó

hãy cho biết phản xạ có điều kiện và phản xạ không điều kiện về thính giác

Làm giúp mình với Sẽ viết 5 sao và clthn

Có bao nhiêu số phức z thỏa mãn |z|(z-6-i)+2i=(7-i)z? A:1 B:2 C:3 D:4

Tình hình giáo dục khoa khoa cử thời lê sơ ? với thời lê sơ tình hình giáo dục và thi cử của nhà Nguyễn có điểm gì khác ?

Làm giúp e 19 20 21 vs.....em đang cần gấp

Giúp em câu này với ạ e đang cần gấp

-Nếu là nhà biệt thự, -Ở Trên biển, được bao quanh bởi biển xanh và nhiều cây -trước nhà là vườn sau nhà là hồ bơi -thì trả lời như thế nào ạ :))

Xứ Huế vốn nổi tiếng với các điệu hò, hò khi đánh cá trên sông ngòi, biển cả, hò lúc cày cấy, gặt hái, trồng cây, chăn tằm. Mỗi câu hò Huế dù ngắn hay dài đều được gửi gắm ít ra một ý tình trọn vẹn. Từ ngữ địa phương được dùng nhuần nhuyễn và phổ biến, nhất là trong các câu hò đối đáp tri thức, ngôn ngữ được thể hiện thật tài ba, phong phú. Chèo cạn, bài thai, hò đưa linh buồn bã, hò giã gạo, ru em, giã vôi, giã điệp, bài chòi, bài tiệp, nàng vung náo nức nồng hậu tình người. Hò lơ, hò ô, xay lúa, hò nện gần gũi với dân ca Nghệ Tĩnh. Hò Huế thể hiện lòng khao khát, nỗi mong chờ hoài vọng tha thiết của tâm hồn Huế. Ngoài ra còn có các điệu như: lí con sáo, lí hoài xuân, lí hoài nam a.Viết đoạn văn 3-5 dòng nhận xét của em về nội dung của đoạn văn

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