1.

a)

Input : 2 cạnh a và b

Output : Diện tích hình chữ nhật

b)

Input: n và dãy số

Output : vị trí và giá trị số âm nhỏ nhất

2.

a) Input : 2 số M ,N

Output: Số lớn hơn trong hai số

Thuật toán:

B1: Nhập M,N

B2:

-So sánh M với N , nếu M lớn hơn N thì gán Max←M

-So sánh N với M , nếu N lớn hơn M thì gán Max←N

B3: In kết quả và kết thúc

3.

a)

-Input: độ dài 4 cạnh a,b,c,d

-Output: Diện tích của tứ giác

b)

Input: n và dãy số

Output : vị trí và giá trị số dương lớn nhất

4.

a) Input: 2 số M,N

Output: số nhỏ nhất

b) Thuật toán

B1: Nhập M,N

B2:

-So sánh M với N , nếu M bé hơn N thì gán Min←M

-So sánh N với M , nếu N bé hơn M thì gán Mim←N

B3: In kết quả và kết thúc

c) Tính chất của thuật toán chủ yếu là phép so sánh và gán vào biến Min nếu điều kiện của phép so sánh là đúng.

B1: Gán TB[i]←0

B2: Gán TB[i]←(Toan[i]+Li[i]+Hoa[i])/3

B3: Nếu TB[i] lớn hơn 8.0 thì in ra

B4: Kết thúc

B1: gán T←0 ;

B2: Chạy từ 1 đến n rồi gán T←T+a[i]

B3: gán T← T/n

B4: In kết quả và kết thúc

Program hotrotinhoc;

var i,l,j : integer;

begin

for i:=1 to 9 do

for j:= 0 to 9 do

for l:=0 to 9 do

if (i*100)+(j*10)+l = (i*i*i)+(j*j*j)+(l*l*l) then writeln(i,j,l);

readln

end.

9₁₀=1001₂

Bạn chia liên tiếp ra là được

các bạn ơi giúp mình với.....

program hotrotinhoc;

var a: array[1..32000] of integer;

i,n,max: integer;

begin

readln(n);

for i:=1 to n do

read(a[i]);

max:=0;

for i:=1 to n do

if a[i]>max then max:=a[i];

write(max);

readln

end.

a)

INPUT: Số tiền mỗi túi

OUTPUT: Tổng số tiền

b)

Lấy số tiền mỗi túi nhân với số túi Nam có

c)

B1: Nhập N

B2: S ← N*5;

B3: In S , kết thúc

d) N chính là số tiền 1 túi nhân với 5 túi ta sẽ có kết quả là S, S là tổng số tiền của 5 túi gộp lại

program hoan_doi;

ues crt;

var
A,B: byte;
begin

clrscr;
write('Nhap gia tri A= ');
readln(A);
write('Nhap gia tri B= ');
readln(B);
writeln('Gia tri ban dau: A= ',A,'; B=',B);
A:= A + B;
B:= A - B;
A:= A - B;
writeln('Gia tri sau khi hoan chuyen: A= ',A,'; B=',B);
readln
end.