Bước 1: vào ổ đĩa D

Bước 2: Nhấn Ctrl+Shift+N

Bước 3: Gõ chứ TIN HOC 8

Bước 4: Nhấn Enter

Tình huống 3 là sao?

Câu 1: B

Câu 2: C

Câu 3: B

Trong chương trình SAO3, có bao nhiêu câu lệnh? * 1 điểm 13 11 14 12➜CÓ 2 CÂU LỆNH

uses crt;

var s,i,n:integer;

begin

clrscr;

write('nhap n='); readln(n);

s:=0; i:=1;

while i<=n do

begin

s:=s+i;

i:=i+2;

end;

writeln(s);

readln;

end.

Cú pháp : While < Đk> do < câu lệnh>

Thành Phần: While, do : các từ khóa

Đk: Thường là 1 phép so sánh

Câu lệnh: Có thể là một câu lệnh đơn giản giản hay 1 câu lện ghép

Hoạt Động:

B1: Kiểm Tra

B2: Nếu sai ➜ Bỏ Qua➞ Kết thúc

Nếu đúng ➜ Thực hiện ➞Quay về B1

Cú pháp : While < Đk> do < câu lệnh>

Thành Phần: While, do : các từ khóa

Đk: Thường là 1 phép so sánh

Câu lệnh: Có thể là một câu lệnh đơn giản giản hay 1 câu lện ghép

Hoạt Động:

B1: Kiểm Tra

B2: Nếu sai ---> Bỏ Qua ---> Kết thúc

Nếu đúng ---> Thực hiện ---> Quay về B1

Câu 1: D

Câu 2: D

Câu 3: D

Câu 4:

t:=0;

for i:=1 to 100 do

if i mod 2=1 then t:=t+i;

writeln(t);

câu cuối mình gửi lên cô cho sai bạn :<

Program hotrotinhoc;

var i,n: integer;

a: longint;

begin

write('Nhap N='); readln(n);

a:=0; i:=1;

while i<n do

begin

a:=a+i;

i:=i+2;

end;

write('A=',a);

readln

end.

Program hotrotinhoc;

var t: real;

i,n: integer;

begin

write('Nhap N='); readln(n);

i:=0; t:=0;

while i<n do

begin

i:=i+1;

t:=t+1/i;

end;

write('T=',t:2:2);

readln

end.