Question

[nga Ngô]

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

Answer 1

[Dương Ngọc Nguyễn]

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

Answer 2

[Dương Ngọc Nguyễn]

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