Viết chương trình nhập vào 1 số nguyên
Bài 1: in ra các số chính phương từ 1 đến n
Bài 2: in ra các số vừa chia hết cho 3 và 5
Bài 3: Tính tổng các số chăn từ 1 đến n và kiểm tra xem tổng đó có chia hết cho 5 và 7 không
Bài 4: In ra các số nguyên tố từ 1 đến n
Bài 5: In ra các số hoàn hảo từ 1 đến n
Bìa 6: In ra các số pitago
( Giúp mình với mn chiều nay mk phải nộp bà cho thầy rùi )
Viết chương trình nhập vào 1 số nguyên Bài 1: in ra các số chính phương từ 1 đến n Bài 2: in ra các số vừa chia hết cho 3 và 5 Bài 3: Tính tổng các s
By Camila
bài 4:
program in_nt;
uses crt;
var n:integer;
function kt_nt:boolean;
var i:integer;ok:boolean;
begin
ok:true;
for i:=2 to n-1 do(vì số nto kể từ số 2 nên chạy từ 2,n-1 vì trừ đi 1 giá trị của phần tử đầu á)
if n mod 2=0 then ok:=false;
kt_nt:=ok;
end;
begin
clrscr;
write(‘nhap n’);
readln(n);
if kt_nt then
begin
for k:=2 to i-1 do
if i mod k= 0 then write(k:2:5);
end;
readln;
end.