Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Vũ Duy Hoàng
Xem chi tiết
Xyz OLM
24 tháng 5 2021 lúc 17:50

Program Tinh_tong ; 

Uses Crt;

Var i ,S: integer ; 

Begin

S: = 0 i;=0 ;

While  < 51 do begin 

                                       i : = i + 1 ;  

                                       S: = S + i ;

                                   end ;

 Write ('Tong la',S);

End. 

Khách vãng lai đã xóa
Bé Heo
Xem chi tiết
Smile
12 tháng 5 2021 lúc 19:02

Cấu trúc lặp được sử dụng để chỉ thị cho máy tính thực hiện lặp lại một vài hoạt động nào đó cho đến khi một điều kiện nào đó được thỏa mãn.

 

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

Hoạt động: Câu lệnh viết sau từ khóa do được thực hiện khi biểu thức điều kiện còn nhận giá trị true. Biểu thức điểu kiện được tính giá trị trước khi câu lệnh được thực hiện, nhưng nếu biểu thức điểu kiện đã nhận giá trị sai ngay từ đầu thì câu lệnh không được thực hiện lần nào. Nếu biểu thức điều kiện luôn nhận giá trị ĐÚNG thì câu lệnh được thực hiện mãi, ta gọi là vòng lặp vô hạn.

Nguyễn Lê Phước Thịnh
12 tháng 5 2021 lúc 19:03

Cấu trúc lặp được sử dụng để chỉ thị cho máy tính thực hiện lặp lại một vài hoạt động nào đó cho đến khi một điều kiện nào đó được thỏa mãn. Mọi ngôn ngữ lập trình đều có các câu lệnh lặp để thể hiện cấu trúc lặp.

Nguyễn Lê Phước Thịnh
12 tháng 5 2021 lúc 19:04

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

Snsbbdbd Xnxb
Xem chi tiết
Kiều Vũ Linh
13 tháng 5 2023 lúc 8:57

Var i,n:integer;

Begin

Write('n = ');readln(n);

Write('Day so tu 1 den ',n,' la ');

For i:=1 to n do write(i:8);

Readln

End.

Cầu Nguyễn
Xem chi tiết
Le Van Dai
Xem chi tiết
Phía sau một cô gái
4 tháng 5 2023 lúc 20:26

program TinhTongTich;

var

      N, i, Tong, Tich:integer;

begin

      writeln('Nhap so nguyen duong N:');

      readln(N);

      i:=1;

      Tong:=0;

      Tich:=1;

      while i<=N do

      begin

            Tong:=Tong+i;

            Tich:=Tich*i;

            i:=i+1;

      end;

      writeln('Tong cac so tu 1 den ', N, ' la: ', Tong);

      writeln('Tich cac so tu 1 den ', N, ' la: ', Tich);

      readln;

end.

Yến Hải
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 3 2022 lúc 15:46

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

i:=0;

while i<=50 do 

begin

i:=i+2;

t:=t+i;

end;

writeln(t);

readln;

end.

Khánh ly
Xem chi tiết
Minh Lệ
23 tháng 3 2023 lúc 23:38

Program HOC24;

var P: integer;

i: byte;

begin

i:=1;  P:=1;

while i<=10 do

begin

p:=p*i;

i:=i+1;

end;

write('P = ',p);

readln

end.

Thế anh lã
Xem chi tiết
Nguyễn Hoàng Duy
21 tháng 3 2023 lúc 22:14

Sử dụng vòng lặp while...do:

program TinhTong20SoTNN;
var
  i, sum: integer;
begin
  i := 1;
  sum := 0;
  while i <= 20 do
  begin
    sum := sum + i;
    i := i + 1;
  end;
  writeln('Tong cua 20 so tu nhien dau tien la: ', sum);
end.

 

Nguyễn Hoàng Duy
21 tháng 3 2023 lúc 22:13

Sử dụng vòng lặp for...do:

program TinhTong20SoTNN;
var
  i, sum: integer;
begin
  sum := 0;
  for i := 1 to 20 do
    sum := sum + i;
  writeln('Tong cua 20 so tu nhien dau tien la: ', sum);
end.

 

Phúc Mai
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 12 2021 lúc 23:18

Câu 1: B

Câu 2: A