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.
t=40,i=25. Giải chi tiết là sao. Cô mình dạy cho mình cách giải là ghi đáp án thui mà.Thông cảm nhen.
T <-- 20; i <-- 0;
| i | ĐK(i<20) | Vòng lặp | T |
| 5 | Đ | 1 | 25 |
| 10 | Đ | 2 | 35 |
| 15 | Đ | 3 | 50 |
| 20 | S | Kết thúc |
Vậy T = 50, i = 20
uses crt;
var t,i:integer;
begin
clrscr;
t:=0; i:=1;
while i<=20 do
begin
t:=t+i;
i:=i+2;
end;
writeln('Tong cac so le tu 1 toi 20 la: ',t);
readln;
end.
a: Thực hiện 5 vòng lặp
T=35
j=11
b: Câu lệnh chưa biết trước là while-do, và chương trình của bạn chỉ cần sửa lại chỗ j:=1 thành b:=1 mà thôi
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.