n = int(input())

m=int(input())

uoc=1

for i in range min(m,n)/2:

      if m%i==0 and n%i==0:

           uoc = i

print(uoc)

dễ

alt+F4+2 lần enter

Đây là cách cực kỳ đơn giản, bạn chỉ cần nhấn vào nút Start trên thanh tác vụ và chọn vào biểu tượng nút nguồn ở góc dưới bên phải sau đó chọn vào Shut down. Cách 2: Dùng tổ hợp phím Alt + F4. Khi bạn nhấn tổ hợp phím Alt + F4, menu Shut down sẽ hiện ra sau đó bạn chỉ cần nhấn OK để tắt máy

Program HOC24;

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

i,n,tg,j: integer;

begin

write('Nhap so phan tu cua day : '); 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 2=1 then

for j:=i to n do

if a[i]>a[j] then

begin

tg:=a[i];

a[i]:=a[j];

a[j]:=tg;

end;

write('Day sau khi sap xep la: ');

for i:=1 to n do if a[i] mod 2=1 then write(a[i],' ');

readln

end.

Program HOC24;

var i,n: integer;

s: real;

begin

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

s:=0; i:=1;

while i<=n do

begin

s:=s+1/(i*2);

i:=i+1;

end;

write('S= ',s:6:2);

readln

end.

Chọn C

Em tham khảo nhé.

Đây là chương trình tìm tổng A:

```
var n, A: real;
  
write('Nhap vao so n: ');
readln(n);
  
A := 0;
  
for var i := 1 to Round(n) do
begin
  A := A + 1/i;
end;
  
writeln('Tong A la: ', A:0:2);
```

Giải thích chương trình:

1. Sử dụng lệnh `readln` để nhập giá trị `n` từ bàn phím.
2. Khởi tạo biến `A` là 0.
3. Sử dụng vòng lặp `for` để tính tổng từ 1 đến `n`.
4. Cộng giá trị của 1/i vào biến `A`.
5. In ra giá trị của `A` với độ chính xác 2 chữ số thập phân bằng lệnh `writeln`.