1. Viết chương trình in ra tích của N số tự nhiên đầu tiên (sử dụng lệnh While…do)
2. Viết chương trình in ra chữ “A” trên màn hình 50 lần.
1. Viết chương trình in ra tích của N số tự nhiên đầu tiên (sử dụng lệnh While…do)
2. Viết chương trình in ra chữ “A” trên màn hình 50 lần.
1
uses crt;
var i,n,S:Integer;
Begin
clrscr;
writeln(‘nhap so n=’);Readln(n);
S:=0; i:=0
while i<=n do
begin
i:=i+1;
S:=S*i;
end;
writeln(‘S=’,S);
readln
End.
Bạn ơi, cô bạn bảo tính tích n số tự nhiên đầu tiên mà số tự nhiên đầu tiên là 0 nên nếu S ra bằng 0 thì đúng nhé, nếu cô bạn bảo sai thì bạn sửa lại i:=1 thế la đc
2
uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 50 do begin writeln(‘A’);
End;
readln
end.
1) uses crt;
var i,n, s : integer;
begin clrscr;
s:=1; i:=1;
writeln(‘Nhap n = ‘); readln(n);
While i <= n then
begin
s:= s*i;
i:=i+1;
Writeln(‘Tich cua ‘,n,’ so tu nhien dau la :’, s);
readln
end.
2. Uses crt;
Var i : integer;
Begin clrscr;
For i:=1 to 50 do writeln(‘A’);
readln
end.