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);
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);
a) x mod 4=0
b) y mod 5<>0
c) (a+b>c) and (a+c>b) and (b+c>a)
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);
Câu 2:
#include <bits/stdc++.h>
using namespace std;
long long n;
int main()
{
cin>>n;
if (n>0 && n%5==0) cout<<"Phai";
else cout<<"Khong phai";
}
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');
if i<=100 then write........ mới đúng điều kiện em nhé.
Vậy i:array[0..100] không được tính khi chạy chương trình hở cô?
i em khai báo là biến mảng mà . sao lại để i riêng được nhỉ?
Ví dụ : i[1]; i[2];....
À dạ e cảm ơn cô
2)
Var m, n: integer;
i:real;
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) and (i <= 100) then write ('i la so duong khong vuot qua 100');
Vậy đúng chưa cô @Minh Lệ
Em gán n:=7 mà m không có giá trị đem vào kiểm tra thì m=0 rồi
.
* m,i được nhập từ bàn phím để kiểm tra em nhé.
Em tưởng chỉ viết mô tả thôi nên không viết chương trình ạ!
2)
Var m, n: integer;
I:real;
Begin
Writeln ('Nhap m: '); readln (m);
n:=7;
If m mod 7 = 0 then writeln(m,'chia het cho 7') else writeln(m,'khong chia het cho 7');
Writeln ('Nhap i: '); readln (i);
If (i> 0) and (i<=100) then write (i,'la so duong khong vuot qua 100') else write (i,'khong phai la so duong khong vuot qua 100');
End.
Câu 3:
uses crt;
Var a,b,c, x,y,z: Real;
begin
x:= a + b;
y:= b + c;
z := c + a;
Writeln ('Nhap a: '); readln (a);
Writeln ('Nhap b: '); readln (b);
Writeln ('Nhap c: '); readln (c);
If (x > c) and (y>a) and (z>b) then writeln (a,', ',b,', ',C,' la ba so thoa man yeu cau') else writeln(a,', ',b,', ',c,' khong thoa man yeu cau');
readln;
end.
Câu 5:
uses crt;
Var a,b,i: real;
begin
Writeln ('Nhap a: '); readln (a);
Writeln ('Nhap b: '); readln (b);
i:= a*b;
If i > 0 then write (a,', ',b,' la hai so khac 0 cung dau') else write (a, ', ',b,' khong thoa man yeu cau');
readln;
end.
1, if n mod 3=0 then ...
2,if (m mod 7<>0) and (i<=100) then...
3,if (a+b)>c then... else
if (a+c)>b then... else
if (c+b)>a then...
4,if (i<=100) and (i>0) then...
5,if ((a<0) and(b<0)) or ((a>0) and(b>0)) then...
6,if a/b=3/4 then...
7,if ((a>5) and (b+c=10)) or ((a<=5) and (b+c=-20))