chuyển đoạn lệnh sau sang while-do và tìm kết quả của S và T?
T:=1 ; S:=0;
For i:=1 to 5 do
begin
S:=S+5;
T:=T*2;
End;
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.
thêm câu này nữa mn ạ:
Câu lệnh For i:= 3 to 10 do begin write(i); end; khi thực hiện xong sẽ viết ra số 13 7 10 14câu cuối ạ Cho câu lệnh sau: s:=0; For i:=1 to 5 do if i mod 2 = 0 then s:=s+i else s:= s+i; cho biết kết quả s ?
Với đoạn lẹnh này chương trình sẽ thực hiện 3 vòng lặp và kết thúc giá trị của S=21.
Lần thứ nhất:
n=n+3=1+3=4; S=S+n=0+4=4;
Lần thứ hai:
\(n=n+3=4+3=7;S=S+n=4+7=11;\)
Lần thứ ba:
\(n=n+3=7+3=10;S=S+n=11+10=21;\)
đến lần này S=21 mà 21>18 không thỏa mãn điều kiện nên lệnh lặp không được thực hiện, câu lẹnh kết thúc, S=21 lặp 3 lần.
s=25
t=32