D = { 10;15;30 }

Tick mik nhé !!!

Uses Crt;

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

n, i : integer;

Begin

Clrcsr;

write('nhap so n =');

readln(n);

for i:= 1 to n do

Begin

write('a[',i,'] =');

readln(a[i]);

end;

for i:= 1 to n do

if a[i] mod 3 = 0 then

writeln(' nhung so chia het cho 3 la :',a[i]);

readln

end.

﴾a; b﴿ = 21 => đặt a = 21m; b = 21n ﴾m; n nguyên tố cùng nhau ﴿

Vì a; b là số tự nhiên và 7a = 11b nên a > b => m > n

7a = 11b => 7.21m = 11.21n => 7m = 11n => 7m chia hết cho 11 => m chia hết cho 11 => m = 11.k

Tương tự, n chia hết cho 7 => n = 7.h

=> 7.11.k = 11.7.h => k = h mà m; n nguyên tố cùng nhau nên k = h = 1 =

> m = 11; n = 7 => a = 21.11 = 231; b = 21.7 = 147

Vậy.... 

Xin lỗi ở trên mình quên chưa khaai báo :))

Uses Crt;

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

n, i, s: integer;

Begin

Clrscr;

write(' Nhap so n ='); readln(n);

For i:= 1 to n do

Begin

write('a[',i,'] ='); readln(a[i]);

end;

For i:= 1 to n do

If a[i] mod 5 then s:=s+a[i];

writeln('Tong cac so =' ,s);

readln

end.

Chúc Bạn Học Tốt

Uses Crt;

Var

Begin

Clrscr;

write(' Nhap so n ='); readln(n);

For i:= 1 to n do

Begin

write('a[',i,'] ='); readln(a[i]);

end;

For i:= 1 to n do

If a[i] mod 5 then s:=s+a[i];

writeln('Tong cac so =' ,s);

readln

end.

Chúc Bạn Học Tốt

để nghiêng , mà lại mờ quá:))

uses crt;

var TB: longint;

a,b,c,d :integer;

begin

clrscr;

write('nhap 4 so a,b,c,d = ') ; readln(a,b,c,d);

TB: (a+b+c+d)/4;

writeln('trung binh cong cua 4 so la : ' , TB);

readln

end.

Định hướng chung chuyển dịch cơ cấu kinh tế ở Đồng bằng sông Hồng là gì?

A. Giảm tỉ trọng của khu vực III, tăng nhanh tỉ trọng của khu vực II và khu vực I.

B. Giảm tỉ trọng của khu vực II, tăng nhanh tỉ trọng của khu vực I và khu vực III

C. Giảm tỉ trọng của khu vực I, tăng nhanh tỉ trọng của khu vực II và khu vực III

D. Tăng tỉ trọng của khu vực I, tăng nhanh tỉ trọng của khu vực II và khu vực III.