program nguyento;
uses crt;
var n,i:integer;
funcition nt(n:integer):boolean;
var ok:boolean;
i:integer;
begin
ok:=true;
for i:=2 to n-1 do
if (n mod i)=0 then
ok:=ok and false;
if n<2 then
nt:=false
else
nt:=ok;
end;
begin
write('nhap n:');
readln(n);
if nt(n) then
write(n,'la so nguyen to')
else
write(n,' khong la so nguyen to');
readln;
end.
Viết thuật toán nhập vào từ bàn phím số nguyên dương N.
a, Kiểm tra xem số đó là chẵn hay lẻ.
b. Kiểm tra xem số đó có chia hết cho 3 hay không?.
Nhập số nguyên dương n từ bàn phím. Kiểm tra số nguyên dương n có phải số chính phương hay không
Bài 1: Viết thuật toán tìm giá trị lớn nhất của hai số nguyên dương M, N nhập từ bàn phím.
Bài 2: Kiểm tra số nguyên A có là số chẵn hay không?
Trình bày thuật toán theo phương pháp sơ đồ khối với bài toán có dạng tìm số lớn nhất trong một dãy số N. Với N nhập từ bàn phím. Tìm số lớn nhất cho một dãy số N=(1/1;1/2/;1/3;1/4;1/N), mong mọi người giúp em.
Hãy viết thuật toán tính S=1^2 +2^2+.....+N^2(với N được nhập từ bàn phím N là nguyên dương)
Nhập số nguyên dương n từ bàn phím. Kiểm tra số nguyên dương n có phải số hoàn thiện ( hoàn hảo) hay khong đưa ra thông báo. Giúp mìnhn với cần gấp
Xác định input và output của bài toán: kiểm tra xem ba số nguyên dương nhập từ bàn phím có phải là ba cạnh của tam giác hay không và cho biết tam giác đó có tính chất gì: thường, vuông, cân hay đều?
xác định input output và viet thuật toán nhập vào từ bàn phím số nguyên dương N. Tính và đưa ra tổng: a) các số từ 1 đến N
b) các số lẻ từ 1 đến N
c) các số chẵn từ 1 đến N
d) các số lẻ và là bội của 5 từ 1 đến N
e) các số chẵn và là bội của 5 từ 1 đến N
Tính và đưa ra hiệu: a) Các số từ 1 đến N
b) các số lẻ từ 1 đến N
c) các chẵn từ 1 đến N
d) các số lẻ và là bội của 5 từ 1 đến N
e) các số chẵn và là bội của 5 từ 1 đến N
