K
Khách

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.

20 tháng 4 2020

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.

6 tháng 1 2021

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.

3 tháng 5 2019

uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n: '); readln(n);
s:=0;i:=0;
i:=i+1;
while i>=n do
begin
s:=s+i;
i:=i+1;
end;
{ write(.........); }
readln
end.

P/S: Vì đề bài chưa cho biết in ra gì nên mình bỏ trống phần write nha bạn

26 tháng 12 2021

cái này dễ mà cần gì hỏi

 

28 tháng 12 2021

bạn cho mình đáp án đi

 

20 tháng 10 2019
https://i.imgur.com/UHWQOFn.jpg
24 tháng 10 2019

Cảm ơn bạn rất rất nhều