đề 1:

xác định input, output:
input: x,y;
output: tich các số nằm trong khoảng x,y;
thuật toán:
B1: nhập x,y;
B2: s←1; i←x;
B3: nếu i=y thì xuất s;
B4: s←s*i;
B5: i←i+1;
B6: quay lại B3;
chương trình:
program bai_giai;
uses crt;
var x,y,i,s:longint;
begin
clrscr;
write('nhap x,y:');readln(x,y);
s:=1;
for i:=x to y do s:=s*i;
write(s);
readln
end.

đề 2:

xác định input, output:
input: x,y;
output: tổng các số nằm trong khoảng x,y;
thuật toán:
B1: nhập x,y;
B2: s←0; i←x;
B3: nếu i=y thì xuất s;
B4: s←s+i;
B5: i←i+1;
B6: quay lại B3;
chương trình:
program bai_giai;
uses crt;
var x,y,i,s:longint;
begin
clrscr;
write('nhap x,y:');readln(x,y);
s:=0;
for i:=x to y do s:=s+i;
write(s);
readln
end.

Theo em thì input ở đây là cho 2 số nguyên dương x, y với điều kiện y lớn hơn x, output sẽ là tích các số nằm trong phạm vi x, y. Thuật ở đây là như sau, khi đã có được số x và y, ta dùng for loop và khai báo biến i trong phạm vi ấy để tìm được ra các số, sau đó khai báo biến tichcacso = 0:

x = int(input()) => cho nhập vào x

y = int(input()) => cho nhập vào y

tichcacso = 1 => khai báo biến tichcacso để tý tính tích, lưu ý để bằng 1 nếu để bằng 0 thì kết quả sẽ ra 0

for i in range (x,y-1): => Vì tính các số trong đoạn x, y nên chỉ tìm các số lớn hơn x và nhỏ hơn y. Ví dụ cho x = 0, y = 5 thì các số tìm được sẽ là 1,2,3,4 thoả mãn điều kiện lớn hơn x nhưng nhỏ hơn y

i += 1

tichcacso *= i => dùng for loop để cho biến i nằm trong đoạn các số trong phạm vi x, y sau đó tìm ra các số liên tiếp trong đoạn ấy, rồi cho tichcacso = tichcacso * i để tính tích dần dần 

print(tichcacso) => in ra màn hình tích của các số, nếu để trong for loop sẽ ra kết quả từ phép nhân đầu tiên đến phép nhân cuối cùng, còn nếu để ở ngoài thì chỉ cho ra kết quả cuối cùng