Hãy phân biệt sự khác nhau giữa câu lệnh lặp với số lần biết trước và số lần chưa biết trước

⇒ Câu lệnh lặp với số lần biết trước :

- Chỉ thị cho máy tính thực hiện 1 lệnh hay 1 nhóm lệnh với số lần đã được xác định từ trước.

- Điều kiện là 1 giá trị của 1 biến đếm có giá trị nguyên

Câu lệnh lặp với số lần chưa biết trước :

- Chỉ thị cho máy tính thực hiện 1 lệnh hay 1 nhóm lệnh với số lần lặp chưa biết trước.

- Điều kiện tổng quát hơn, có thể là kiểm tra của 1 giá trị có thực, cũng có thể là 1 điều kiện tổng quát khác.

P/s : Câu này mới đúng nè bạn ! Câu vừa nãy mình trả lời sai . Sorry nhé . Bạn chép câu này ... nhớ đó .

Hãy phân biệt sự khác nhau giữa câu lệnh lặp với số lần biết trước và số lần chưa biết trước

\(\Rightarrow\) Câu lệnh lặp với số lần biết trước :

- Chỉ thị cho máy tính thực hiện 1 lệnh hay 1 nhóm lệnh với số lần đã được xác định từ trước.
- Chỉ thị cho máy tính thực hiện 1 lệnh hay 1 nhóm lệnh với số lần lặp chưa biết trước.
- Điều kiện là 1 giá trị của 1 biến đếm có giá trị nguyên

Câu lệnh lặp với số lần chưa biết trước :

- Điều kiện tổng quát hơn, có thể là kiểm tra của 1 giá trị có thực, cũng có thể là 1 điều kiện tổng quát khác.

Chào bạn!

Câu hỏi của bạn nếu là làm trên giấy thì cần có chương trình để mô tả tìm hiểu các lệnh.

Còn nếu là thực hành thì bạn tự thực hành nhé.

Chúc bạn học tốt.

haha

mấy bn ơi giúp mk vs( một câu cũng đc)

1)

var a,b : integer;

begin

writeln('nhap a va b =');

readln(a,b);

if a>b then writeln('So lon hon la a') else writeln('so lon hon la b');

if a=b then writeln('a va b bang nhau');

readln

end.

var S:integer;

begin

S:=1+2+3+4+5;

Writeln('tong la =',S);

readln

end.

Program Tinh_toan;

uses crt;

var i,n:integer;

S:longint;

begin

For i:=1 to 5 do S:= S+i;

write('tong S = ' , S);

readln

end.

Var i, n:integer;

S:longint;

Begin

Writeln('Nhập n'); readln (n);

S:=0;i:=1;

Câu 1:

For i:=1 to n do s:=s+i;

Writeln ('Tổng là', s);

Câu 2:

For i:=1 to n do s:=s*i;

Writeln('Tích là', s);

Câu 3:

For i:=1 to n do

If (i mod 2=1) then s:=s+i;

Writeln ('Tổng các số lẻ của', n,' số đầu tiên', s);

Câu 4:

For i:=1 to n do

If (i mod 2=1) then s:=s*i;

Writeln ('Tích các số lẻ của', n,' số đầu tiên', s);

Readln

End.

End.

thank you

program baitap;
uses crt;
var s: real;
n: integer;
const sai_so = 0.001;
BEGIN
clrscr;
s:= sai_so;
n:= 1 div s;
while s<=sai_so do
begin
n:= n-1;
s:= 1/n
end;
writeln('So n lon nhat de s = 1/n > ', sai_so, ' la: ',n);
readln;
END.

program tinh_tong ;

var i, n: integer; S: longint;

begin

clrscr;

writeln('Moi ban nhap n'); readln(n);

S:=0;

for i:= 1 to n do S:= S + 2*i;

writeln (' tong S la: ', S);

readln;

end.

chương trình của bạn sai rồi!!!!!!!!!!!!!

Var s,i,n : Integer

Begin

Writeln( ' Nhap n = ') ; Readln ( n) ;

S:= 0 ;

For i := 1 to 10 do

If i mod 2 = 0 then s:= s+1

Writeln (' Tong cac so chan<= ' , n , ' la ',S ) ;

Readln ;

End.

mình không nghĩ vậy, cô mình có bảo là có biến là "dem" gì đó nữa