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.
b) sẽ trờ thành bảng nhân N:có các nhân tử từ 1 đến 100
c)
Nhân từ 10 đến 100
a)
uses crt; ----> Khai báo thư viện có tên crt
var n, i:integer; ----> Khai báo biến n và biến i thuộc kiểu dữ liệu số nguyên (integer)
begin ----> Bắt đầu chương trình chính
clrscr; ----> Xóa toàn bộ màn hình
write('Nhap vao mot so nguyen:'); ----> In ra màn hình : Nhap vao mot so nguyen
readln(n); ----> Nhập giá trị cho biến n
if n<=1 then writeln(n,' khong la so nguyen to')
----> Kiểm tra điều kiện n<=1 . Nếu đúng in ra màn hình : (biến n được nhập) khong la so nguyen to
else ----> Điều kiện n<=1 là sai thì rẽ nhánh (ngược lại)
begin ----> Khởi tạo tạo khối chương trình phụ
i:=2; ----> Gán biến i có giá trị bằng 2
while (n mod i<>0) do i:=i+1; ----> Chừng nào n mod i còn khác 0 thì tăng biến i lên 1 đơn vị
if i=n then writeln(n,' la so nguyen to') ----> Kiểm tra điều kiện, nếu i=n thì in ra màn hình : (biến n được nhập từ bàn phím) la so nguyen to
else writeln(n,' khong la so nguyen to,); ----> Ngược lại (điều kiện là sai n<>i ) thì in ra màn hình : (biến n được nhập từ bàn phím) khong la so nguyen to
end; ----> Kết thúc khối chương trình phụ
readln ----> Đọc ra màn hình
end. ----> Kết thúc chương trình chính
b) Khi nhập vào số 9 thì chương trình sẽ xuất thông báo : 9 khong la so nguyen to
c) Khi nhập vào số 131 thì chương trình sẽ xuất thông báo : 131 la so nguyen to
số đối xứng là số gì ?
begin
write('nhap so: ');readln(a);
giữa hai dòng này thiếu cái gì tôi quên rồi , lí do là ví sử dụng thư viện crt