Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
P/s: ở đây mình chỉ viết chương trình thôi, còn thuật toán bạn có thể suy ra từ chương trình nhé:
Câu 2:
uses crt;
var n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
if n mod i=0 then write(i:4);
readln;
end.
Câu 3:
uses crt;
var n,i,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
dem:=0;
for i:=1 to n do
if n mod i=0 then dem:=dem+1;
writeln('So uoc cua ',n,' la: ',dem);
readln;
end.
Câu 4:
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
if n mod i=0 then t:=t+i;
writeln('Tong cac uoc cua ',n,' la: ',t);
readln;
end.
Câu 5:
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
for i:=1 to n do
if n mod i=0 then s:=s*i;
writeln('Tich cac uoc cua ',n,' la: ',s:4:2);
readln;
end.
Câu 6:
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
if i mod 2=0 then t:=t+i;
writeln('Tong cac so chan trong khoang tu 1 den ',n,' la: ',t);
readln;
end.
Câu 8:
uses crt;
var n,i,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
kt:=0;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=1;
if (kt=0) and (n>1) then writeln(n,' la so nguyen to')
else writeln(n,' khong la so nguyen to');
readln;
end.
1) Mô tả thuật toán điều khiển nhân vật Mèo
Bước 1. Nhân vật Mèo nói: “Trời lạnh, điều tồi tệ với cậu là gì” trong 2 giây
Bước 2. Nhân vật Mèo hỏi: “Sao lại vậy?” trong 1,5 giây.
Bước 3. Nhân vật Mèo cười trong 2,5 giây.
2) Mô tả thuật toán điều khiển nhân vật Hươu cao cổ
Bước 1. Nhân vật Hươu cao cổ suy nghĩ trong 1,5 giây.
Bước 2. Nhân vật Hươu cao cổ đáp: “Là uống trà nóng, Mèo ạ!” trong 2 giây
Bước 3. Nhân vật Hươu cao cổ trả lời: “Khi trà xuống được bụng mình thì nó nguội lạnh mất rồi!” trong 2 giây.
Bước 4. Nhân vật Hươu cao cổ cười trong 2,5 giây.
Sơ đồ này mô tả thuật toán tìm trung bình cộng của hai số a và b
Input: a,b
Output: (a+b)/2
giúp em khắc phục điều này. Em hãy mở rộng chương trình “Điều khiển rô-bốt”, bổ sung lệnh này vào sau lệnh 
và chạy thử.
thì nhân vật sẽ trở lại ban đầu.
Câu 9. Em hãy quan sát sơ đồ khối ở hình sau và cho biết sơ đồ khối mô tả thuật toán gì? Xác định đầu vào và đầu ra của thuật toán. Mô tả lại thuật toán dưới dạng liệt kê.
Tham khảo: