![](https://rs.olm.vn/images/avt/0.png?1311)
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.
![](https://rs.olm.vn/images/avt/0.png?1311)
![](https://rs.olm.vn/images/avt/0.png?1311)
theo mình cái USB bạn gắn vào máy tính có virus hoặc phần mềm độc hại cho máy tính nên phần mềm USB dick security ko cho nó hoạt động ( khóa USB đó lại hoặc đóng băng nó) nếu bn muốc kết nối USB vào máy tính dc bn nên quét virus cho USB rồi mới cắm vào máy tính
![](https://rs.olm.vn/images/avt/0.png?1311)
5 bước ra lệnh cho robot nhặt rác:
1. Tiến hai bước
2.Quay trái, tiến một bước
3.Nhặt rác
4.Quay phải, tiến ba bước
5.Quay trái, tiến hai bước
6. Bỏ rác vào thùng
![](https://rs.olm.vn/images/avt/0.png?1311)
Bạn tham khảo trong bài giảng của hoc24 nhé : Bài 1. Máy tính và chương trình trong máy tính | Học trực tuyến
5 bước ra lệnh cho robot nhặt rác:
1. Tiến hai bước
2.Quay trái, tiến một bước
3.Nhặt rác
4.Quay phải, tiến ba bước
5.Quay trái, tiến hai bước
6. Bỏ rác vào thùng
![](https://rs.olm.vn/images/avt/0.png?1311)
1. Khai báo 2 biến: a và b (trong đó: a là chiều dài, b là chiều rộng)
Cho người dùng nhập giá trị vào 2 biến trên
Công thức chu vi:(a+b)*2
Công thức diện tích: a*b
Điều kiện bổ sung:
+ Nếu a <= 0 hoặc b <=0 hoặc cả a,b <=0 => Báo lỗi (Chiều dài không bao giờ âm)!
+ Nếu a=b => Báo lỗi (Hình chữ nhật thì chiều dài không thể bằng chiều rộng)
de 3
program bt;
uses CRT;
var m,n:integer;
T:real;
BEGIN clrscr;
write('m,n ='); readln(m,n);
writeln('Tong la:',m+n);
writeln('Hieu la:',m-n);
writeln('Tich la:',m*n);
T:=m/n;
writeln('Thuong la:',T);
readln
END.
![](https://rs.olm.vn/images/avt/0.png?1311)
uses crt;
var n,i:integer;
kt:boolean;
begin
clrscr;
repeat
readln(n);
until n<=100;
if (n<2) then writeln('khong la so nguyen to')
else begin
kt:=true;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=false;
if kt=true then write('la so nguyen to')
else write('khong la so nguyen to');
end;
readln;
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
uses crt;
var n,i:integer;
kt:boolean;
begin
clrscr;
repeat
readln(n);
until n<=100;
if (n<2) then writeln('khong la so nguyen to')
else begin
kt:=true;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=false;
if kt=true then write('la so nguyen to')
else write('khong la so nguyen to');
end;
readln;
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
Lời giải :
Bài 1:
Ý tưởng:
-Cách 1: Bạn có thể chuyển số n thành xâu sau đó đảo ngược xâu lại
-Cách 2: Đảo trực tiếp chữ số đó
Bài làm :
Cách 1:
program hotrotinhoc;
var n,i: byte;
s,s1: string;
begin
write('n='); readln(n);
str(n,s);
for i:= length(s) downto 1 do
s1:=s1+s[i];
write(s1);
readln
end.
Cách 2:
var n: byte;
begin
write('n='); readln(n);
while n>0 do
begin
write(n mod 10);
n:=n div 10;
end;
readln
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
uses crt;
var a,b:longint;
begin
clrscr;
write('nhap so thu nhat:');readln(a);
write('nhap so thu hai:');readln(b);
if (a mod 2=0) and (b mod 2=0) then
write('ca hai so deu chan')
else if (a mod 2<>0) and (b mod 2<>0) then
write('ca hai so deu le')
else write('ban vua nhap mot so chan va mot so le');
readln;
end.
chúc bạn học tốt
![](https://rs.olm.vn/images/avt/0.png?1311)
* Program cau 1 phải trước uses crt;
Var toan; van; tbc; anh, interger; ( Sai )
=> Var toan, van, tbc, anh: integer;
* Begin phải trước lệnh clrscr;