Tin học Bài 7 câu lệnh lặp

[Kudo Shinchi]

[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.

1)Tính tổng S của N số tự nhiên đầu tiên
S=1+2+3+...+N
2)Tính tích N! của N số tự nhiên đầu tiên
N!=1.2.3....N

 

[anhb_]

uses crt;
var n,i,s:longint;
begin
  writeln('Nhap n =');
  readln(n);
  s:=0;
  for i:=1 to n do
  s:=s+i;
  writeln('Ket qua = ',s);
readln
end.

uses crt;
var n,i,s:longint;
begin
  writeln('Nhap n =');
  readln(n);
  s:=1;
  for i:=1 to n do
  s:=s*i;
  writeln('Ket qua = ',s);
readln
end.