uses crt;

var a,b,c,max:integer;

begin

clrscr;

write('Nhap a:'); readln(a);

write('Nhap b:'); readln(b);

write('Nhap c:'); readln(c);

max:=-32000;

if max<a then max:=a;

if max<b then max:=b;

if max<c then max:=c;

writeln(max);

readln;

end.

+ Phong trào đấu tranh ở Cam-pu-chia, Lào cuối thế kỷ XIX - đầu thế kỉ XX diễn ra liên tục sôi nổi, hình thức đấu tranh chủ yếu là khởi nghĩa vũ trang.
+ Mục tiêu chống Pháp, giành độc lập vì vậy phong trào mang tính chất của cuộc đấu tranh giải phóng dân tộc song còn ở giai đoạn tự phát.
+ Phong trào do sĩ phu hoặc nông dân lãnh đạo.
+ Kết quả phong trào thất bại do: tự phát, thiếu tổ chức vững vàng, thiếu đường lối đấu tranh đúng đắn.

Input: các số từ 1 đến 100

Output: tổng các số nguyên dương từ 1 đến 100

Thuật toán:

Bước 1: T<-0; i<-1;

Bước 2: Nếu i>100 thì in ra T (T là tổng các số nguyên dương từ 1 đến 100)

Bước 3: T<-t+i; 

Bước 4: i<-i+1 rồi quay lại bước 2

uses crt;

var a,b,c: integer;

begin

clrscr;

write('Nhap ngay; thang; nam :'); readln(a,b,c);

if (a>=1) and (a<=31) then write('Ngay hop le');

if (b>=1) and (b<=12) then write('Thang hop le');

if (c>=0) and (c<=2021) then write('Nam hop le');

readln

end.

Trả lờiChuyển tiếp

uses crt;

var a,b,c: integer;

begin

clrscr;

write('Nhap ngay; thang; nam :'); readln(a,b,c);

if (a>=1) and (a<=31) then write('Ngay hop le');

if (b>=1) and (b<=12) then write('Thang hop le');

if (c>=0) and (c<=2021) then write('Nam hop le');

readln

end.

a

a. Những từ ngữ thuộc trường từ vựng các từ ngữ chỉ sự vật hiện tượng tự nhiên để nói về một sự vật, hiện tượng xã hội:

VD1: Theo các chuyên gia kinh tế, thế giới đang trải qua những đợt sóng thần về tài chính

VD2: Một biển người đang tiến vào lễ hội

VD3: Những ngày gần đây, thị trường chứng khoán đang bị đóng băng

b. Giải thích: Đây là cách nói ẩn dụ dựa trên sự tương đồng về đặc điểm của các hiện tượng

Var i,k,n,bk,tong: integer;

a: array[1..1000] of integer;

Begin

write('Nhap K: '); readln(k);

write('Nhap N: '); readln(n);

for i:=1 to n do

begin

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

end;

{câu a}

For i:=1 to n do 

if a[i]=k then bk:=bk+1;

writeln('Co so phan tu bang k la:',k);

{câu b}

For i:=1 to n do 

if a[i]=k then

begin

write(i,' ');

tong:=tong+a[i];

end;

write('. Tong la:',tong);

readln

end.