1.cho chương trình nhận biết một số tự nhiên n được 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 số nguyên tố. 2.Viết chương trình in ra màn hình các số chẵn nhỏ hơn hoặc bằng n(với n được nhập từ bàn phím) 3.Tính tổng của n số tự nhiên đầu tiên, với

Ngoc06022000

2 năm trước

1.cho chương trình nhận biết một số tự nhiên n được 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 số nguyên tố. 2.Viết chương trình in ra màn hình các số chẵn nhỏ hơn hoặc bằng n(với n được nhập từ bàn phím) 3.Tính tổng của n số tự nhiên đầu tiên, với n là số tự nhiên được nhập vào từ bàn phím . Giúp mình với ạ!!mai mình kiểm tra HKII rồi!!

Loga Sinh Học lớp 12

0 lượt thích 24 xem

1 trả lời

Thích Trả lời

hunhtran2006

CÂU 1:

program ct;

uses crt;

var i,n:integer;

begin

clrscr;

write('nhap n:=');readln(n);

if n<=1 then writeln('N khong la so nguyen to') else

begin

i:=2;

while (n mod i<>0) do i:=i+1;

if i=n then writeln(n,' la so nguyen to'); else

writeln(n,'khong la so nguyen to');

end;

readln

end.

CÂU 2:

program ct;

uses crt;

var i,n:integer;

begin

clrscr;

write('nhap n:=');readln(n);

for i:=1 to n do

if i mod 2=0 then write(i);

readln

end.

CÂU 3:

program ct;

uses crt;

var n,i,s:integer;

begin

clrscr;

write('nhap n:=');readln(n);

s:=0;

for i:=1 to n do s:=s+i;

writeln('tong cua n so tu nhien la:',s);

readln

end.

Vote (0) Phản hồi (0) 2 năm trước

trungkienhihi8

Bài 1:

program bai_giai;
uses crt;
var n,i,d:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
d:=0;
for i:=2 to n div 2 do
if n mod i=0 then d:=d+1;
if d=0 then write('La so nguyen to') else write('Khong phai');
readln;
end.

Bài 2:

program bai_giai;
uses crt;
var n,i:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=2 to n do
if i mod 2=0 then write(i,' ');
readln;
end.

Bài 3:

program bai_giai;
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=2 to n do t:=t+i;
write(t);
readln;
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Vẽ hộ mik cái này nhoa ko cần giống lắm cũng đc

chứng minh rằng tồn tại một số là bội của 19 có tổng chữ số bằng 19

Cho A= 4n-1/2n-3 (n ∈ Z) a) Tìm số nguyên n để A có giá trị là một số nguyên ? b) Tìm n để A đạt giá trị lớn nhất (GTLN) ? giá trọ nhỏ nhất (GTNN)

Giúp em với mà Bài này trong TNL của e Cô giao khoanquas

Tìm số nguyên xyz thỏa mãn x^2+y^2+z^2+2<2(x+y+z)

viết đông phân anken của C3H6,C4H8 và gọi tên Viết đông phân ancol của C3H8O, C4H10O và gọi tên

Chứng minh : Tỉ số 2 đường cao tương ứng của 2 tam giác đồng dạng bằng tỉ số đồng dạng.

Mọi người giúp mk mỗi ý c thôi nha, giải thật dễ hiểu vào đó

Hãy kể về con đường mà em sẽ đi sau khi tốt nghiệp THCS . Em phải làm gì để thành công trên con đường đó

M.n ơi giúp e vs đc k ạ. e vote 5 sao ạ. e cảm ơn nhiều ^-^ cho hình chóp SABC. SA vuông góc mặt đáy ,tam giác ABC vuông tại B. AB=a, SA=a√2 a) xác định góc giữa , SC, SB, và mặt phẳng ABC b) xác định góc giữa SC và mặt phẳng SAB

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến