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.

a: n=10

b: uses crt;

var i,s,n:integer;

begin

clrscr;

s:=0; 

for i:=1 to 4 do s:=s+i;

write(s);

readln;

end.

18 tháng 3 2022

đen thui

18 tháng 3 2022

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

12 tháng 9 2018

Đáp án B

13 tháng 10 2017

Đáp án B

8 tháng 12 2017

Đáp án A

1 tháng 5 2019

Đáp án B

20 tháng 4 2022

A. 1

uses crt;

var n,s:integer;

begin

clrscr;

s:=0;

n:=0;

while s<=1000 do 

  begin

n:=n+1;

s:=s+n;

end;

writeln(s);

writeln(n);

readln;

end.