K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

18 tháng 12 2020

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);

22 tháng 11 2019

Luư ý đây không phải là dạng viết chương trình nên sẽ không chạy được trên pascal nhé!

1)

Var i, n: Integer;

For i:=3;

If n mod i = 0 then write('n chia het cho 3');

2)

Var m, n: integer;

i: real;

For n:= 7;

If m mod 7 = 0 then write('m chia het cho 7') else write('m khong chia het cho 7');

If 0 < i <= 100 then write('i la so duong khong vuot qua 100');

22 tháng 11 2019

Luư ý đây không phải là dạng viết chương trình nên sẽ không chạy được trên pascal nhé!

1)

Var i, n: Integer;

For i:=3;

If n mod i = 0 then write('n chia het cho 3');

2)

Var m, n: integer;

i: array[0..100] of real;

For n:= 7;

If m mod 7 = 0 then write('m chia het cho 7') else write('m khong chia het cho 7');

If i <> 0 then write ('i la so duong khong vuot qua 100');

a) x mod 4=0

b) y mod 5<>0

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

11 tháng 11 2021

Câu 2: 

uses crt;

var x,y:int64;

begin

clrscr;

readln(x,y);

writeln(x+y);

readln;

end.

25 tháng 2 2018

a.a<>0

b.(a mod 2=0) and (a>10) and (a<99)

c.(g+c)=36 and (2*(g+4)*x)=100

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

25 tháng 2 2018

b,((a mod2=0) and (a>=10) and (a<100));

25 tháng 3 2018

a<>0

a mod 2=0 and a>10

g+c:=36

g+4*x:=100;

a<b+c;

b>a+c;

c>b+a;

20 tháng 3 2022

Program HOC24;

var i,n: integer;

S,P: longint;

begin

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

{..............................................}

readln

end.

-----------------------------------------------------------

Bạn điền vào {........................} theo từng bài nhé

a) S:=0; 

for i:=1 to N do if i mod 2=1 then s:=s+i;

write('S= ',s);

b)

S:=0;

for i:=1 to N do if i mod 2=0 then s:=s+i;

write('S= ',s);

c) P:=1;

for i:=1 to N do if i mod 2=0 then p:=p*i;

write('P= ',p);

d)

P:=1;

for i:=1 to N do if i mod 2=1 then p:=p*i;

write('P= ',p);

8 tháng 12 2021

Bài 1.

a)\(ax^2+bx+c\Rightarrow\)a*x*x+b*x+c

b)\(\dfrac{a-b}{c-d}+a^2\Rightarrow\) (a-b)/(c-d)+a*a