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

8 tháng 3 2020

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

b/ a * b > 0;

c/ a * 4 = b * 3;

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

e/ (m = 1) or (m = 3) or (m = 5) or (m = 7) or (m = 8);

11 tháng 11 2021

Câu 2: 

uses crt;

var x,y:int64;

begin

clrscr;

readln(x,y);

writeln(x+y);

readln;

end.

Bài 1:

uses crt;

var n,i,s:integer;

begin

clrscr;

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

s:=0;

for i:=1 to n do 

 if i mod 6=0 then s:=s+i;

writeln(s);

readln;

end.

Bài 2: 

uses crt;

var a,b,c,ucln,i:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c);

while a<>b do 

  begin

if a>b then a:=a-b

else b:=b-a;

end;

ucln:=a;

while ucln<>c do 

 begin

if ucln>c then ucln:=ucln-c

else c:=c-ucln;

end;

writeln(ucln);

readln;

end.