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