uses crt;
var n:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
if sqrt(n)=trunc(sqrt(n)) then writeln(n,' la so chinh phuong')
else writeln(n,' khong la so chinh phuong');
readln;
end.
uses crt;
var n:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
if sqrt(n)=trunc(sqrt(n)) then writeln(n,' la so chinh phuong')
else writeln(n,' khong la so chinh phuong');
readln;
end.
1)viết chương trình xuất ra các bội số của B trong phạm vị từ 1 đến N, với giá trị B, N được nhập vào từ bàn phím
2) nhập số nguyên n, viết chương trình xem số n có phải là số nguyên tố không
3)viết chương trình kiểm tra C có phải số hoàn hảo hay không
Câu 1: Viết chương trình nhập từ bàn phím số nguyên n (số đối của n<10^9). Kiểm tra n có phải là số nguyên dương và chia hết cho 5.
Câu 2: Viết chương trình nhập từ bàn phím số nguyên n (số đối của n<10^9). Kiểm tra n có phải là số nguyên dương và chia hết cho 3.
bài 1 :
nhập vào số nguyên n . kiểm tra n là số chẳng hay số lẻ
bài 2:
nhập vào số n . kiểm tra n có phải là số chính phương không . số chính phương bằng bình phương của một số
Viết chương trình nhập vào hai số a,b. Kiểm tra tổng của chúng có phải là số dương và chia hết cho 3 hay không?
1) mô tả thuật toán và viết chương trình kiểm tra một số tự nhiên n nhập vào từ bàn phím có phải là số nguyên tố hay không?
Viết chương trình nhập vào 2 số n và m đều là nguyên dương. Kiểm tra 2 số đó có phải là cặp số thân thiết hay không và hiển thị ra màn hình kết quả kiểm tra.
Chú ý: Hai số tạo thành một cặp số thân thiết khi chúng tuân theo quy luật: Số này bằng tổng tất cả các ước của số kia (trừ chính số đó) và ngược lại.
Bài 1: Viết chương trình nhập số nguyên dương X. Hãy xác định số X có chia hết cho 5 hay không?
Bài 2: Viết chương trình nhập vào số nguyên x. Kiểm tra x có chia hết cho 3 và 5 hay không?
1. Thực hành
Bài 1: Viết chương trình nhập số nguyên n từ bàn phím. Kiểm tra và in ra màn hình số n có hợp lệ hay không với điều kiện n là số nguyên dương chẵn.
Bài 2: Viết chương trình Pascal nhập các số nguyên x và y từ bàn phím, in giá trị của x và y ra màn hình. Sau đó hoán đổi các giá trị của x và y rồi in lại ra màn hình giá trị của x và y.
• Ví dụ cho x:=5; y:=7.Hoán đổi để x:=7; y:=5.Cho 1 biến trung gian là z, ta hoán đổi x, y cho nhau bằng cách:
• z:=y { gán giá trị số 7 vào biến nhớ z }
• y:=x { gán giá trị số 5 vào biến nhớ y }
• x:=z { gán giá trị số 7 vào biến nhớ x }
Bài 3: Viết chương trình nhập vào ba số nguyên a, b và c từ bàn phím. Tính và in ra màn hình:
X= a + b + c
Y= (a + b)2 / c.
Chạy lại chương trình và nhập giá trị cho a là 10.5, quan sát kết quả và nêu nhận xét.
Viết chương trình kiểm tra 3 cạnh a,b,c có phải là ba cạnh của tam giác đều hay không(a,b,c là 3 số dương được nhập từ bàn phím)
Gấp lắm ạaaa