Kiểm tra giúp xem e lm đúng chưa ạ
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.
refer:
Tích -xi | Xơ - un | Ma – ni - la | |
Về nhiệt độ | |||
Nhiệt độ tháng cao nhất (°C) | 8,1 | 26,2 | 29,3 |
Nhiệt độ tháng thấp nhất(°C) | - 30 | - 1 | 25,8 |
Biên độ nhiệt(°C) | 38,1 | 27,2 | 3,5 |
Nhiệt độ trung bình năm(°C) | - 12,8 | 13,3 | 25,4 |
Về lượng mưa | |||
Lượng mưa tháng cao nhất(mm) | 50 | 385 | 440 |
Lượng mưa tháng thấp nhất(mm) | 10 | 21 | 8 |
Lượng mưa trung bình năm (mm) | 321 | 1373 | 2047 |
mình làm những bài bn chưa lm nhé
9B
10A
bài 2
have repainted
bàii 3
ride - walikking
swimming
watch
8 How much do these apples cost?
9 THis is a blue car
11 Are there 40 classrooms in Phong's school?
13 How wide if the Great wall
Ước lượng độ dài lm trên cạnh bàn bằng 6 gang tay (một gang tay của em khoảng 16cm), sau đó em dùng thước có chia khoảng kiểm tra lại ước lượng của em khi dùng gang tay là 96cm.
uses crt;
var a,x:longint;
{------------------ham-kiem-tra-so-nguyen-to---------------}
function ktnt(x:longint):boolean;
var kt:boolean;
i:longint;
begin
kt:=true;
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then
begin
kt:=false;
break;
end;
if kt=true then ktnt:=true
else ktnt:=false;
end;
{---------------chuong-trinh-chinh-------------------}
begin
clrscr;
repeat
write('Nhap a='); readln(a);
until a>10;
if ktnt(a)=true then
begin
x:=a;
repeat
a:=a div 10;
if ktnt(a)=true then a:=a div 10;
until a<10;
if (ktnt(a)=true) and (a>1) then writeln(x,' la so sieu nguyen to')
else writeln(x,' khong la so sieu nguyen to');
end
else writeln(a,' khong la so sieu nguyen to');
readln;
end.
Được rồi nhé