[tin 8] pascal

[key_bimat]

[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. Viết chương trình in ra màn hình bảng cửu chương ( cả 9 bảng luôn ạ)
2. Viết chương trình sử dụng lệnh lặp while...do để tính
$A=1+\dfrac{1}{2}+\dfrac{1}{3}+...+\dfrac{1}{n}$

 

[demon311]

1. Viết chương trình in ra màn hình bảng cửu chương ( cả 9 bảng luôn ạ)
2. Viết chương trình sử dụng lệnh lặp while...do để tính
$A=1+\dfrac{1}{2}+\dfrac{1}{3}+...+\dfrac{1}{n}$

1)

Var: i,j:byte;
BEGIN
For i:= 2 to 9 do
begin
For j:= 1 to 10 do
begin
write(i,'x',j,'=',i*j);
writeln;
end;
writeln;
end;
readln
END.

 

[pinkylun]

Câu 2:

Program tinh_tong;
uses crt;
var i,N:integer;
S: longint;
Begin
clrscr;
write('N=');readln(N);
S:=0;
i:=1;
while i>=N do
begin
S:=S+1/i; i:=i+1;
end;
write(' Tong S= ',S:4:2);
readln
end.