NT
0
K
Khách
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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
6 tháng 2 2018
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
24 tháng 8 2019
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
ML
23 tháng 8 2019
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
24 tháng 8 2019
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
4 tháng 12 2016
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)
8 tháng 12 2016
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.
14 tháng 3 2022
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.
14 tháng 3 2022
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.
ML
18 tháng 6 2019
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.
GH
20 tháng 8 2017
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
LN
5 tháng 12 2021
* 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;
