Tiết 41: THỰC HÀNH 5 – VÒNG LẶP FOR … DO Bài 1: Viết chương trình tính tích P = 1*2*3*4*5 Bài 2: Viết chương trình tính tổng S = 1 + 2 + 3 + 4 + …+ N N nhập từ bàn phím giúp tôi với ạ

1)

Uses crt;

Var i, P : integer;

Begin clrscr;

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

P :=1;

For i :=1 to 5 do P := P*i;

Writeln('P=', P );

Readln

End.

2)

Uses crt;

Var i, n, T : integer;

Begin clrscr;

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

T :=0;

For i :=1 to n do T :=t+i;

Writeln('Tong do la :', T);

Readln

End.

bài 1

progam tinh_p ;

uses crt ;

var  i ,p :  integer ;

begin

clrscr;

P:=1;

for i:=1 to 5 do

p:=p*i ;

writeln('p=',p);

readln

end.

bài 2

program tong_S ;

uses crt ;
var  i ,n,s :  integer ;
begin
clrscr;

s:=0;

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

for i:=1 to n do 

S:=s+i ;

writeln('Tong = ',s);

readln

end.