Chọn C

Chọn D

program phiasaumocogai;

var

     n, i, num, min, max, sum: integer;

     average: real;

begin

     write('Nhap so luong day so can kiem tra: ');

     readln(n);

     min := maxint;

     max := -maxint;

     sum := 0;

     for i := 1 to n do

     begin

          write('Nhap day so thu ', i, ': ');

          readln(num);

          if num < min then

               min := num;

          if num > max then

               max := num;

          sum := sum + num;

     end;

     average := sum / n;

     writeln('So nho nhat la: ', min);

     writeln('So lon nhat la: ', max);

     writeln('Tong cac day so la: ', sum);

     writeln('Trung binh cua cac so la: ', average:0:2);

end.

câu hỏi cụ thể là gì, ngôn ngữ lập trình đúng không🐧

yah đúng rồi bạn ơi, sử dụng câu lệnh while..do nhé

Program HOC24;

var t,n: integer;

begin

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

while n<>0 do

begin

t:=t+(n mod 10);

n:=n div 10;

end;

write('Tong cac chu so cua ',n,' la: ',t);

readln

end.

Bạn phải cho điều kiện chứ

Đoạn lệnh trên sẽ được thực hiện 5 lần, vì mỗi lần lặp, biến i được tăng thêm 2 và nó sẽ dừng khi i vượt quá giá trị 10.

Vì vậy, đáp án là A: 5 lần.

program TimSoDoiXung;

var

     f_in, f_out: text;

     n, num, tmp, rem: integer;

begin

     // mở file đầu vào

     assign(f_in, 'sdx.inp');

     reset(f_in);

     // mở file đầu ra

     assign(f_out, 'sdx.out');

     rewrite(f_out);

     // đọc n từ file đầu vào

     readln(f_in, n);

     // tìm các số đối xứng

     for num := 1 to n do

     begin

          tmp := num;

          rem := 0;

          while tmp <> 0 do

          begin

               rem := rem * 10 + tmp mod 10;

               tmp := tmp div 10;

          end;

          if num = rem then

               writeln(f_out, num);

     end;

     // đóng file đầu vào và đầu ra

     close(f_in);

     close(f_out);

end.

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`.

Viết rõ ra được ko

hàng 10 là gì vậy

a: n=10

b: uses crt;

var i,s,n:integer;

begin

clrscr;

s:=0; 

for i:=1 to 4 do s:=s+i;

write(s);

readln;

end.