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.
- Lần thứ nhất: T<10=> Thực hiện lệnh
T:=T+i=0+1=1
i:=i+9=1+9=10
-Lần thứ hai: T<10=> Thực hiện lệnh
T:T+i=1+10=11
i:=i+9=10+9=19
-Lần thứ ba: T>10=> Không thực hiện lệnh
Vậy kết thúc chương trình T=11, i=19
1/
program chia_het;
uses crt;
var n, i, s: integer;
a : array [1..100] of integer;
begin
clrscr;
write('Cac so can nhap la: n = '); readln(n); s:=0
for i:=1 to n do begin
write('So thu ',i,' la:'); readln(a[i]);
if (a[i] mod 2 = 0) and (a[i] mod 5 = 0) then s:=s+1; end;
writeln('Cac so chia het cho 5 va 2 la: ',s);
readln
end.
6.a sai vì sau do có dấu ;
==> sửa lại: for i := 1 to 10 do write(i:5);
6.b sai vì chỉ số đầu lớn hơn chỉ số cuối (100>10) và chỗ gán cho x thế dấu :
==> sửa lại: for i:=10 tờ 100 đô x:=x-i;
6.c sai vì to viết liền với số 200
==> sữa lại: for i:= 100 tờ 200 độ i:=i+5;
6.d đúng
6.d2 thừa i:=0 và còn ko cách chỗ to và 105
sử lại: var n, i:real;
begin n:=0; for i:=5 to 105 do n:=n+1; end.
B1: Trong các hoạt động sau đây hoạt động nào là hoạt động lặp với số lần chưa biết trước:
A. tính tổng các số tự nhiên từ 1 đến 20.
B. Nhập các số nguyên cho đến khi đủ 50 số
C. Mỗi ngày tập TD 2 lần
D. Nhập dữ liệu từ bàn phím cho đến khi nhập xong dữ liệu khi dừng
B2: Đoạn lệnh sau đây in ra kết quả gì?
s:=0; while s<10 do begin s:=s+1;
Writeln(s); end;
A. In ra các số từ 1 đến 9.
B. In ra các số từ 1 đến 10.
C. In ra các số 1.
D. Không có đáp án đúng.
B3: Hãy cho biết đâu là đoạn lệnh lặp bằng câu lệnh While...do để tính tổng S=1+2+...+10?
A. S:=0; while i<10 do S:=S+i;
B. S:=0; i:=0; while i<11 do begin S:=S+i; i:=i+1; end;
C. S:=0; i:=1; while i do S:=S+i; i:=i+1;
D. S:=0; i:=0; while i<=10 do begin S:=S+i; i:=i+1; end;
+Đoạn1
\n\nT:=0; n:=0;
\n\nWhile T<=5 do
\n\nBegin
\n\nn:=n+1; T:=T+n; end;
\n\nVòng 1: T<=5 ---> Đúng ---> n=1 ---> t=1
\n\nVòng 2: T<=5 ---> đúng ---> n=2 ---> t=3
\n\nVòng 3: T<=5 ---> đúng ---> n=3 ---> t=6
\n\nT<=5 ---> ĐK sai kết thúc vòng lặp. Khi đó giá trị n=3; T=6
\n\nCâu b tương tự bạn nhé
\n
T sẽ bằng 50