.Viết cú pháp vòng lặp for to do; Cho ví dụ?

2 câu trả lời

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

Ví dụ:

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

Học tốt!

Cú pháp:  WHILE  <Điều kiện>  DO  <Công việc>

Ví dụ 1: Viết chương trình nhập vào số nguyên dương N, in ra ước số lớn nhất của số N (khác N).

     Var  n, i : integer

     Begin

          write(‘Nhập số n = ‘)

          readln(n);

          i := n – 1;

          while  n  mod  i <> 0  do

              i := i – 1;

          writeln(‘Ước số lớn nhất của số ‘, n , ‘ là : ‘, i)

          readln