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