câu 1:

* cú pháp: while <điều kiện> do <câu lệnh>;

trong đó:

- while, do là các từ khóa

- <điều kiện> thường là phép so sánh (trả về 1 trong 2 giá trị đúng hoặc sai)

- <câu lệnh> là phần chương trình thực hiện nếu điều kiện đúng

câu 2:

program tinh_tong;

var n,I,S: integer;

begin

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

S:=0;

i:=1;

while (i<=n) do

begin

S:=S+i;

i:=i+1;

end;

writeln('tong cua ',n,' so tu nhien S=',S);

end.

Câu 1:

Cú pháp: While <điều kiện> do <câu lệnh>;

Hoạt động: Câu lệnh sẽ được thực hiện lặp đi lặp lại khi điều kiện cho giá trị đúng và dừng lại khi điều kiện sai thì dừng

While,do là các từ khóa

Điều kiện: Là các phép so sánh toán học

Câu 2:

câu này bạn chụp thiếu phần bên dưới-nhưng vân xcos thể làm chính xác 100% theo cấu trúc chương trình(bạn có thể thiếu trong các từ sau: end. ; uses crt; readln; ) và "end." 100% sẽ có vì nó là 1 phần của chương trình

Program Tinh_tong;

var n,i,S: integer;

begin

write('nhap so n: ');

readln (n);

s:=0;

i:=1;

while (i<=n) do

begin

s:=s+i;

i:=i+1;

end;

writeln ('Tong cua ',s,' so tu nhien S=',s);

end.

--------------------------------------------------

Nếu bên dưới hình bạn chụp có thêm readln; uses crt; clrscr;

thì bạn cú chép như bình thường và nếu dòng nào không có thì bạn cứ việc bỏ qua nhé:

Program Tinh_tong;

uses crt;

var n,i,S: integer;

begin

Clrscr;

write('nhap so n: ');

readln (n);

s:=0;

i:=1;

while (i<=n) do

begin

s:=s+i;

i:=i+1;

end;

writeln ('Tong cua ',s,' so tu nhien S=',s);

readln;

end.

$#Trumtinhoc$