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
TÂN MAI
Xem chi tiết
Kiều Vũ Linh
20 tháng 4 2022 lúc 14:38

A. 1

Phùng Tâm Như
Xem chi tiết
Lê Nguyễn Khánh Hà
Xem chi tiết
Kiều Vũ Linh
5 tháng 5 2023 lúc 6:06

Var n,s:integer;

Begin

n:=0;

s:=0;

While s<=1000 do

Begin

n:=n+1;

s:=s+n;

End;

Write('Tong la ',s);

Readln

End.

Thế anh lã
Xem chi tiết
Tuấn Anh vu
Xem chi tiết
Minh Lệ
16 tháng 3 2023 lúc 22:50

Program HOC24;

var S,n: integer;

begin

s:=1; n:=0;

while s<10 do

begin

n:=n+2;

s:=s+n;

end;

write('S= ' ,s);

readln

end.

Sách Giáo Khoa
Xem chi tiết
Minh Lệ
20 tháng 4 2020 lúc 10:10

a)

- Máy thực hiện gồm 10 vòng lặp

- Khi kết thúc vòng lặp giá trị của S=5

- Chương trình :

Program hotrotinhoc;

var x,s:real;

begin

s:=10; x:=0.5;

while s>=5.2 do s:=s-x;

write(s:1:0);

readln

end.

b)

- Máy thực hiện gồm vô hạn vòng lặp

- Khi kết thúc vòng lặp giá trị của S không xác định

- Chương trình :

Program hotrotinhoc;

var n,s:byte;

begin

s:=10; n:=0;

while s<=10 do

begin

n:=n+3;

s:=s-n;

end;

write(s);

readln

end.

tricoder
6 tháng 1 2021 lúc 16:44

a)

- Máy thực hiện gồm 10 vòng lặp

- Khi kết thúc vòng lặp giá trị của S=5

- Chương trình :

Program hotrotinhoc;

var x,s:real;

begin

s:=10; x:=0.5;

while s>=5.2 do s:=s-x;

write(s:1:0);

readln

end.

b)

-không thực hiện lặp do điều kiện thoát lặp là s>=10 mà ban đầu s=10

-kết thúc,s=10

chương trình:

Program hotrotinhoc;

var n,s:byte;

begin

s:=10; n:=0;

while s<10 do

begin

n:=n+3;

s:=s-n;

end;

write(s);

readln

end.

Nhi Đặng
Xem chi tiết
Nguyễn Lê Phước Thịnh
1 tháng 1 2022 lúc 14:03

a: Thuật toán thực hiện công việc tính tổng các số dương trong dãy n số nguyên

ume Shoto sả
Xem chi tiết
Hải Vân
18 tháng 3 2022 lúc 15:05

đen thui

Tạ Phương Linh
18 tháng 3 2022 lúc 15:08

đen như zại ai mè giải đựt ạ, khum nhìn thấy chữ gì lun ạ

Nguyễn Lê Phước Thịnh
18 tháng 3 2022 lúc 16:19

uses crt;

var t,n:integer;

begin

clrscr;

t:=0;

n:=0;

while t<=20 do 

 begin

n:=n+2;

t:=t+n;

end;

writeln(t);

readln;

end.

Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
12 tháng 9 2018 lúc 6:54

Đáp án B