Bước 1: Nhập n là số cần in ra bảng nhân của số đó

Bước 2: i←1; 

Bước 3: Nếu i>n thì kết thúc thuật toán

Bước 4: In ra màn hình kết quả của câu lệnh writeln(i,'x',n,'=',i*n)

Bước 5: i←i+1, quay lại bước 3

Bước 1: Nhập n

Bước 2: i←1; 

Bước 3: Nếu i>n thì kết thúc thuật toán

Bước 4: In ra màn hình kết quả của câu lệnh writeln(i,'x',n,'=',i*n)

Bước 5: i←i+1, quay lại bước 3

Bài 1: 

uses crt;

var n,i:longint;

s:real;

begin

clrscr;

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

s:=0;

for i:=1 to n do 

 s:=s+1/i;

writeln(s:4:2);

readln;

end.

Lợn nhà là một giống loài được thuần hóa từ loài lợn rừng, được chăn nuôi để cung cấp thịt. Hầu hết lợn nhà có lớp lông mỏng trên bề mặt da. Lợn nhà thường được cho rằng là một phân loài từ tổ tiên hoang dã của chúng là lợn rừng. 

Ở một số nước phát triển và đang phát triển, lợn thuần hóa là loài bản địa thường được nuôi thả ngoài trời hoặc trong chuồng. Ở một số vùng lợn được thả tìm thức ăn trong rừng có thể có người trông coi. Ở các quốc gia công nghiệp nuôi lợn thuần hóa được chuyển từ việc nuôi chuồng trại truyền thống sang hình thức nuôi công nghiệp. Nhờ đó mà có chi phí sản xuất thấp nhưng sản lượng lại cao

Lợn nuôi chủ yếu dùng để lấy thịt. Các sản phẩm khác từ thịt lợn như xúc xích, lạp xưởng, jambon. Đầu lợn có thể được dùng làm dưa da đầu lợn. Gan, huyết (huyết thường và huyết hậu) và các nội tạng khác cũng được dùng làm thực phẩm. Một số tôn giáo như Do Thái giáo và Hồi giáo, thịt lợn là thực phẩm cấm kỵ.

Anh cảm ơn ai vậy 

em à

thank you

ha ha mắc cười quá

là ví dụ nhập vào 22334 và 8993 thì in ra 22334 tổng là 14; 8993 có tổng là 29; à?

nếu vậy chỉ cần cho chạy vòng mod, div 10 rồi cộng dồn là ra kết quả:

vd  for i:=1 to length(a) do begin

sa:=a mod 10;

a:=a div 10; end;

b tương tự kiểu vậy là được :) 

uses crt;

var t,n:integer;

begin

clrscr;

t:=0;

n:=0;

while t<=10 do 

  begin

n:=n+1;

t:=t+n;

end;

writeln(t);

readln;

end.

uses crt;

var s,i:integer;

begin

clrscr;

i:=1;

s:=1;

while s<=1000 do 

  begin

i:=i+1;

s:=s*i;

end;

writeln(s);

readln;

end.