Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Big City Boy
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 12 2020 lúc 21:55

a) n mod 3=0;

b) m mod 7<>0;

c) y<=100;

d) (a+b>c) and (b+c>a) and (a+c>b);

e) ((a>0) and (b>0)) or ((a<0) and (b<0));

f) a/b=3/4;

g) ((a>5) and (b+c=10)) or ((a<=5) and (b+c=-20));

h) (m=1) or (m=3) or (m=5) or (m=7) or (m=8);

moi moi dubai 2k4
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
17 tháng 10 2017 lúc 2:19

Đáp án đúng : D

Sơn Trần
20 tháng 12 2021 lúc 16:59

Đáp án đúng : D

Trần trung hiếu
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 2 2021 lúc 13:48

P/s: ở đây mình chỉ viết chương trình thôi, còn thuật toán bạn có thể suy ra từ chương trình nhé:

Câu 2: 

uses crt;

var n,i:integer;

begin

clrscr;

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

for i:=1 to n do 

  if n mod i=0 then write(i:4);

readln;

end.

Câu 3: 

uses crt;

var n,i,dem:integer;

begin

clrscr;

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

dem:=0;

for i:=1 to n do 

  if n mod i=0 then dem:=dem+1;

writeln('So uoc cua ',n,' la: ',dem);

readln;

end.

Câu 4: 

uses crt;

var n,i,t:integer;

begin

clrscr;

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

t:=0;

for i:=1 to n do 

  if n mod i=0 then t:=t+i;

writeln('Tong cac uoc cua ',n,' la: ',t);

readln;

end.

Câu 5: 

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

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

s:=1;

for i:=1 to n do 

  if n mod i=0 then s:=s*i;

writeln('Tich cac uoc cua ',n,' la: ',s:4:2);

readln;

end.

Câu 6: 

uses crt;

var n,i,t:integer;

begin

clrscr;

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

t:=0;

for i:=1 to n do 

  if i mod 2=0 then t:=t+i;

writeln('Tong cac so chan trong khoang tu 1 den ',n,' la: ',t);

readln;

end.

Câu 8: 

uses crt;

var n,i,kt:integer;

begin

clrscr;

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

kt:=0;

for i:=2 to trunc(sqrt(n)) do 

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

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

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

readln;

end.

Hằng Vu
Xem chi tiết
Nguyễn Lê Phước Thịnh
26 tháng 2 2022 lúc 14:50

Chọn A

vvd fan
Xem chi tiết
Nguyễn Lê Phước Thịnh
14 tháng 4 2020 lúc 17:02

a) x mod 4=0

b) y mod 5<>0

c) (a+b>c) and (a+c>b) and (b+c>a)

Không Tồn Tại Youtuber
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 12 2021 lúc 23:25

Chọn B

Như Quỳnh
Xem chi tiết
Nguyễn Hà Giang
17 tháng 11 2021 lúc 12:58

Câu 1: A;B;C

Câu 2:A; C

Câu 3:A;B

Câu 4:C

lê thị bích ngọc
18 tháng 11 2021 lúc 11:48

Mình tưởng chương trình mới là học c++ rồi chứ

 

Trâm Vương
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 2 2022 lúc 21:36

uses crt;

var k,x,y:integer;

begin

clrscr;

readln(k);

x:=k mod 5;

y:=k div 5;

writeln(k,'/5=',x,' du ',y);

readln;

end.