K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

9 tháng 2 2023

Uses crt;

var n: integer;

begin clrscr;

Writeln('Nhap vao so nguyen N: '); readln(n);

readln;

end.

 

9 tháng 2 2023

loading...

8 tháng 2 2023

- Cú pháp: for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;

- Giải thích:

   + Từ khóa: for, to, do

   + Biến đếm: kiểu nguyên

   + Giá trị đầu, giá trị cuối: giá trị nguyên (giá trị đầu < giá trị cuối)

   + Câu lệnh trong vòng lặp không làm thay đổi giá trị của biến đếm

   + Số lần lặp: giá trị đầu - giá trị cuối + 1

- Hoạt động:

   + Biến điếm sẽ nhận giá trị bằng giá trị đầu

   + Sau mỗi vòng lặp, biến đếm tăng thêm một đơn vị cho đến khi bằng giá trị cuối thì kết

      thúc lệnh lặp

- Ví dụ:

       for i:= 1 to 5 do write('Tin hoc');