hãy mô tả các điều kiện cho dưới đây trong ngôn ngữ Pascal
1, n là một số nguyên chia hết cho 3
2, m là một số nguyên ko chia hết cho 7 i là một số dương ko vượt quá 100
3, tổng 2 số bất kì trong 3 số a, b, c luôn lớn hơ n số còn lại
4, i là một số dương không vượt quá 100
5, hai sô avaf b khác 0 có cùng dấu
6, a và b là 2 số nguyên tỉ lệ thuận với nhau theo tỉ lệ 3:4
7, số a>5 và tổng của 2 sô b và c bằng 10 hoặc a =< 5 và tổng của 2 số b và c bằng -20
8, m nhận một trong các giá trị 1, 3, 5,,,,,,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');
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 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))
