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.
![](https://rs.olm.vn/images/avt/0.png?1311)
a) 5 vòng lặp
giá trị T và i :
Bước 1: i:=0, T:=105
Bước 2: 105 >= 20, tiếp tục với bước 3
Bước 3: i:=i+5=5, T:=105-5=100
Bước 2: 100 >= 20, tiếp tục với bước 3
Bước 3: i:=i+5=10, T:=100-10=90
Bước 2: 90 >= 20, tiếp tục với bước 3
Bước 3: i:=i+5=15, T:=90-15=75
Bước 2: 75 >= 20, tiếp tục với bước 3
Bước 3: i:=i+5=20, T:=75-20=55
Bước 2: 55 >= 20, tiếp tục với bước 3
Bước 3: i:=i+5=25, T:=55-25=30
Bước 2: 30 < 20, chuyển sang bước 4
Bước 4: in ra kết quả T=30 và i=25
=>sau khi thực hiện thuật giá trị T và i lần lượt là 30 và 25.
b)
program BaiTinHoc;
var
i, T: integer;
begin
i := 0;
T := 105;
repeat
if T < 20 then
break;
i := i + 5;
T := T - i;
until false;
writeln('T = ', T);
writeln('i = ', i);
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
uses crt;
var n,s:integer;
begin
clrscr;
s:=0;
n:=0;
while s<=1000 do
begin
n:=n+1;
s:=s+n;
end;
writeln(s);
writeln(n);
readln;
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
a) Thuật toán này sẽ thực hiện 3 vòng lặp và kết thúc với giá trị S = 9
b) Chương trình Pascal:
program vidu;
var
n, s: integer;
begin
n := 2;
s := 0;
while n < 5 do
begin
n := n + 1;
s := s + n;
end;
writeln('S =', s);
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
a)
- Máy thực hiện gồm 10 vòng lặp
- Khi kết thúc vòng lặp giá trị của S=5
- Chương trình :
Program hotrotinhoc;
var x,s:real;
begin
s:=10; x:=0.5;
while s>=5.2 do s:=s-x;
write(s:1:0);
readln
end.
b)
- Máy thực hiện gồm vô hạn vòng lặp
- Khi kết thúc vòng lặp giá trị của S không xác định
- Chương trình :
Program hotrotinhoc;
var n,s:byte;
begin
s:=10; n:=0;
while s<=10 do
begin
n:=n+3;
s:=s-n;
end;
write(s);
readln
end.
a)
- Máy thực hiện gồm 10 vòng lặp
- Khi kết thúc vòng lặp giá trị của S=5
- Chương trình :
Program hotrotinhoc;
var x,s:real;
begin
s:=10; x:=0.5;
while s>=5.2 do s:=s-x;
write(s:1:0);
readln
end.
b)
-không thực hiện lặp do điều kiện thoát lặp là s>=10 mà ban đầu s=10
-kết thúc,s=10
chương trình:
Program hotrotinhoc;
var n,s:byte;
begin
s:=10; n:=0;
while s<10 do
begin
n:=n+3;
s:=s-n;
end;
write(s);
readln
end.