Những câu hỏi liên quan
thanh thuý
Xem chi tiết
Nguyễn Lê Phước Thịnh
10 tháng 5 2021 lúc 19:56

Câu 1:

uses crt;

var n,i,kt:integer;

begin

clrscr;

write('Nhap n='); readln(n);

if n<2 then writeln(n,' khong la so nguyen to')

else begin

kt:=0;

for i:=2 to n-1 do 

  if n mod i=0 then kt:=1;

if kt=0 then writeln(n,' la so nguyen to')

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

end;

readln;

end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
10 tháng 5 2021 lúc 19:57

Câu 2: 

uses crt;

var a:array[1..100]of integer;

i,n,max,min:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

max:=a[1];

min:=a[1];

for i:=1 to n do 

  begin

if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

end;

writeln('So lon nhat la: ',max);

writeln('So nho nhat la: ',min);

readln;

end.

Bình luận (0)
Luong Dinh Sy
Xem chi tiết
Lương Thảo Linh
Xem chi tiết
nguyen ngoc thanh
Xem chi tiết
LÊ THÀNH NGHĨA
Xem chi tiết
Đỗ Việt Hùng
18 tháng 3 2021 lúc 21:09
Hùng đẹp trai nhất 😈😈😈
Bình luận (0)
 Khách vãng lai đã xóa
Bách 9A
18 tháng 3 2021 lúc 21:09

để n-3/7 có giá trị nguyên thì n-3 chia hết cho 7

n+3 thuộc bội 7=7k=> n=7k+4

Bình luận (0)
 Khách vãng lai đã xóa
Ruok FF
18 tháng 3 2021 lúc 21:16

\(\frac{\left(n-3\right)}{7}\inℤ\Leftrightarrow\left(n-3\right)⋮7\)

hay \(\left(n-3\right)\inƯ\left(7\right)=\left\{\pm1;\pm7\right\}\)

Với: n-3=1 => n=4

       \(\text{ n-3=-1}\)=> n=2

       \(\text{ n-3=7}\)=> n=10

         \(\text{n-3=-7}\)=> n=-4

Vậy .....

Bình luận (0)
 Khách vãng lai đã xóa
nguyen thi quynh huong
Xem chi tiết
Nghiêm Đức Trung
Xem chi tiết
nguyen thi quynh huong
Xem chi tiết
nguyen phuong tram
12 tháng 4 2019 lúc 22:10

a,         De A la phan so thi 2-n # 0 suy ra n # 2

Vay n # 2 thi A la phan so 

b,          vi n la so nguyen nen suy ra 2-n la so nguyen 

suy ra 1 chia het cho 2 - n 

suy ra 2-n thuoc uoc cua (1) 

suy ra 2 - n thuoc { 1 , -1 }

suy ra n thuoc { 1 , 3 } 

Vay n thuoc { 1 , 3 }

* Chu y :

Cac tu ( thuoc , uoc , suy ra , chia het ) khi ban trinh bay thi ban viet ki hieu cho minh nhe

Bình luận (0)
lê thiện thanh ngân
Xem chi tiết
Bacteria
21 tháng 12 2016 lúc 13:53

program bai_5;

uses crt;

var a,b,c :real;

BEGIN

write('nhap vao so a'); Readln(a);

write('nhap vao so b'); Readln(b);

write('nhap vao so c'); Readln(c);

if a<0 then a:=-a;

max:=a;

if max <b then max:=b;

if max<c then max:=c;

write('gia tri tuyet doi cua a la:',a);

write('so lon nhat trong ba so a,b,c la:',max);

Readln

END.

Thanks

Bình luận (1)