Thân Thiện Pưn's Profile

(x+2)(3x-12)=0

<=> x+2 =0

        3x-12=0

<=> X=-2

        x=4

        (a+1)² >a(a+2)

<=> a²+2a+1>a²+2a

<=> 1>0 (Thỏa mãn với bất kí mọi số thực)

Vậy tập nghiệm cảu bpt {a|a€R}

        3(x+1)=2x-5 {Ghi lại đề}

<=> 3x+3=2x-5 {Bỏ ngoặc}

<=> 3x-2x=-5-3 {Chuyển vế}

<=> x=-8

a) Sai, vì chỉ số đầu và chỉ số cuối không cách nhau bởi dấu phải

b)Đúng

c) Sai, vì khai bảo kiểu số nguyên, hai chỉ số không thể là số thực

d)Đúng

Bạn nhập mảng như đã được GV hướng dẫn, sau đó dùng For...do... cùng câu lệnh If để KT điều kiện chẵn(A[i] mod 2=0), điều kiện lẻ(A[i] mod 2 <>0). Nếu đúng thì bạn In ra màn hình theo từng phần tử riêng biệt nhwung đừng dùng ....ln để phần tử cùng nằm trên 1 hàng ngang

Program SXM;

Uses crt;

Var A:array[1..100]of integer;

n:byte;

tam,i,j,S:integer;

Begin

S:=0;

Write('Nhap so phan tu: ');Readln(n);

For i:=1 to n do

Begin

Write('A[',i,']=');Readln(A[i]);

End;

For i:=1 to n-1 do

For j:=i+1 to n do if A[i]>A[j] then 

Begin

Tam:=A[i];

A[i]:=A[j];

A[j]:=Tam;

End;

Write('Sap xep tang dan: ');

For i:=1 to n do Write(A[i],',');

Readln;

Write('Sap xep giam dan: ');

For n downto i:=1 do write(A[i],',');

Readln;

For i:=1 to n do S:=S+A[i];

Write('Tong mang: ',S:5:2);

Readln;

End.

 

 

Program Mang;

uses crt;

Var i,n: byte;

M: array [1..100] of integer;

tong: longint;

Begin

Write('Nhap so phan tu cua day: '); Readln(n);

For i:=1 to n do

begin

write('M[',i,']'); Readln(M[i]);

end;

tong:=0;

for i:=1 to n do if M[i] mod 3=0 then tong:=tong+M[i];

Write('Tong cac so chia het cho 3 trong day la: ',tong);

Readln

End.

 

 

Xóa sạch màn hình trước khi khởi chạy chương trình nha bạn