Program HOC24;
var i,a,b: longint;
d: byte;
function t(x: longint): longint;
var j,t1: longint;
begin
t1:=0;
for j:=1 to x do if x mod j=0 then t1:=t1+j;
t:=t1;
end;
begin
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
d:=0;
for i:=a to b do
if (t(i)/i)=12/5 then d:=d+1;
write(d);
readln
end.
Viết chương trình nhập vào hai số nguyên a,b. In ra màn hình các ước chung của a và b. In ra bội chung nhỏ nhất của a và b. In ra ước chung lớn nhất của a và b.
Giúp mình với! Mai mình thi rồi.
Xin cảm ơn rất nhiều!!!
giúp mk vs mn ơi!!!
Nhập vào 1 số tự nhiên N với (0<N ≤ 65535).
a) Hãy cho biết chữ số lớn nhất của số tự nhiên vừa nhập.
b) Kiểm tra xem số đó có đối xứng không.
viết chương trình nhập 1 dãy số gồm n số( n đc nhập từ bàn phím). Đếm xem trong dãy số có bao nhiêu số âm, dương
HELP ME! mình đang cần gấp T-T
Câu 1: Nêu sự khác biệt giữa hai phím xóa Deletet và phím Backspace
Hãy nêu thao tác di chuyển
Câu 2: Trình bày các bước định dạng phông chữ, cỡ chữ, màu chữ
m.n giúp mình với, mai mình kiểm tra 1t rồi
Viết chương trình nhập vào hai số nguyên a,b. In ra màn hình BCNN của 2 số đó? cần giải nhanh . mik gần thi rồi
Trái Đất nặng bao nhiêu ?
Độ dài quỹ đạo Trái Đất quay một vòng quanh Mặt Trời ?
Sao Kim có bao nhiêu vệ tinh ?
Nhiệt độ trung bình trên Trái Đất là bao nhiêu độ ?
Nhiệt độ trung bình trên sao Hỏa là bao nhiêu độ ?
Giúp mình nha càng nhanh càng tốt mai mình thi rồi
nhập vào mảng 1 chiều A gốm N phần tử là các số nguyên (1<N<=10^6) và số nguyên K
a) tính tổng các số chia hết cho R
b) Đếm số lượng các số chia hết cho R
Các bạn ơi cho mình hỏi. Muốn tìm lại những dữ liệu (hình ảnh) đã bị xóa trên Iphone thì làm ntn ạ? Xóa cả trong "đã xóa gần đây" rồi nhé ạ! Bh vào icloud cũng ko tìm lại đc. Bạn nào bt thì chia sẻ với mình nhé ạ! Mình có những dữ liệu rất quan trọng. Xin cảm ơn rất nhiều ạ :((
1 Để dịch và chạy chương trình cần làm thế nào ?
2 Các phép toán với dữ liệu kiểu số ?
3 Trình bày lệnh nhập dữ liệu , thông báo kết quả tính toán , dừng màn hình để xem kết quả ?
4 Cú pháp khai báo biến và hằng ( cho ví dụ )? Hãy so sánh điểm giống và khác nhau giữa hằng và biến ?
5 Bài tập :
* Viết chương trình tính và in ra màn hình diện tích tam giác với chiều cao h = 5 , độ dài cạnh đáy d được nhập vào từ bàn phím
* Viết chương trình tính và in ra màn hình tổng của hai số a và b ; biết a= 10 và giá trị của b được nhập từ bàn phím
*Viết chương trình tính và in ra màn hình diện tích hình chữ nhật với chiều rộng =5 , chiều dài b được nhập vào từ bàn phím .
6 Bài tập phần luận
* Giả sử A được khai báo là biến với kiểu dữ liệu số thực , X là biến với dữ liệu xâu . Các phép gán sau đây có hợp lệ không ?
a) A:=4
b) X:= 3242
c) X:='3242'
d) A:= 'Ha Noi '.
* Giả sử ta đã khai báo một hằng Pi với giá trị 3.14 . Có thể gán lại giá trị 3.1415 cho Pi trong phần thân chương trình được không ?Tại sao ?
* Trong Pascal , khai báo nào sau đây là đúng ?
a) var tb: real;
b) var 4hs : integer;
c) const x : real;
d) var R = 30;
* Hãy liệt kê các lỗi có thể có trong chương trình dưới đây và sửa lai cho đúng :
Var a,b := integer;
const c:= 3;
begin
a:=200
b:= a/c;
write (b);
readln
end .
* Hãy cho biết kiểu dữ liệu của các biến cần khai báo dùng để viết chương trình để giải các bài toán dưới đây :
a) Tính diện tích S của hình tam giác với độ dài một cạnh a và chiều cao tương ứng h ( a và h là các số tự nhiên được nhập từ bàn phím ).
b) Tính kết quả c của phép chia lấy phần nguyên và kết quả d của phép chia lấy phần dư của 2 số nguyên a và b .
