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.
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.
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
a) Thuật toán này sẽ thực hiện 3 vòng lặp và kết thúc với giá trị S = 9
b) Chương trình Pascal:
program vidu;
var
n, s: integer;
begin
n := 2;
s := 0;
while n < 5 do
begin
n := n + 1;
s := s + n;
end;
writeln('S =', s);
end.
a) 5 vòng lặp
giá trị T và i :
Bước 1: i:=0, T:=105
Bước 2: 105 >= 20, tiếp tục với bước 3
Bước 3: i:=i+5=5, T:=105-5=100
Bước 2: 100 >= 20, tiếp tục với bước 3
Bước 3: i:=i+5=10, T:=100-10=90
Bước 2: 90 >= 20, tiếp tục với bước 3
Bước 3: i:=i+5=15, T:=90-15=75
Bước 2: 75 >= 20, tiếp tục với bước 3
Bước 3: i:=i+5=20, T:=75-20=55
Bước 2: 55 >= 20, tiếp tục với bước 3
Bước 3: i:=i+5=25, T:=55-25=30
Bước 2: 30 < 20, chuyển sang bước 4
Bước 4: in ra kết quả T=30 và i=25
=>sau khi thực hiện thuật giá trị T và i lần lượt là 30 và 25.
b)
program BaiTinHoc;
var
i, T: integer;
begin
i := 0;
T := 105;
repeat
if T < 20 then
break;
i := i + 5;
T := T - i;
until false;
writeln('T = ', T);
writeln('i = ', i);
end.
vậy X = A.4