tin học trẻ...quá là ....trẻ..

[tk1]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Câu hỏi 1:
a) Tính S=1*2*3*...*n. dùng cấu trúc while do
b) Tìm n và s lớn nhất để
s=1+2+3+4+5+....+n <100
Câu hỏi 2: Nêu một cách rõ ràng về lệnh while..do và lồng for
Thanks:khi (67)::khi (67)::khi (67):

 

[auauau97]

câu a:

Uses crt;
Var
  s,n,i:longint;
BEGIN
  Clrscr;
  Write('Nhap so n:');
  Readln(n);
  s:=1;
  While (i<=n) do
    Begin
      s:=s*i;
      i:=i+1;
    End;
  Write('Gia tri cua s:',s);
  Readln;
END.

 

[auauau97]

câu b)

Uses crt;
Var
  s,n:longint;
BEGIN
  Clrscr;
  s:=0;
  For n:=1 to 13 do s:=s+n;
  Writeln('s=',s);
  Writeln('n=',n);
  Readln;
END.

 

[tk1]

rất cảm ơn các bạn:khi (67)::khi (67)::khi (67):
Còn đây là câu tiếp theo:
Câu 1: Nhập n là số tự nhiên, tìm số nguyên tố nhỏ nhất và lớn hơn n.
Câu 2: Tính 1!+2!+3!+...+n!
Câu 3: Nhập số d, tính tổng các chữ số của số n là số tự nhiên

 

[tk1]

cụ thể hơn đi bạn....mình mới học pascal mà..