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.
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);
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');
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/ (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);
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.
Câu 2:
uses crt;
var x,y:int64;
begin
clrscr;
readln(x,y);
writeln(x+y);
readln;
end.
a = int(input())
b = int(input())
c = int(input())
if a**2+b**2==c**2:
print(a,b,c,"la ba canh cua tam giac")
elif a**2+c**2==b**2:
print(a,b,c,"la ba canh cua tam giac")
elif b**2+c**2==a**2:
print(a,b,c,"la ba canh cua tam giac")
else:
print(a,b,c,"khong la ba canh cua tam giac")
a) x mod 4=0
b) y mod 5<>0
c) (a+b>c) and (a+c>b) and (b+c>a)