a. Vt chương trình =nnlt pascal Mô tả thuật toán sau Bước 1. S←1;n←0 Bước 2. Nếu s>=10;chuyển bước 4 Bước 3. N←n+2,s←s+n; quay bước 2 Bước 4 thông báo s và KT thuật toán b. khởi động phần mềm Free pascal soạn thảo lưu dịch chạy trương trình quan sát kết quả
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.
Những câu hỏi liên quan
NL
Nguyễn Lê Phước Thịnh
CTVHS
25 tháng 3 2023
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.
NL
Nguyễn Lê Phước Thịnh
CTVHS
7 tháng 4 2022
a: Thuật toán sẽ thực hiện 5 vòng lặp
Kết thúc thì S=0
b: uses crt;
var i,s,n:integer;
begin
clrscr;
s:=20;
n:=1;
while (s>=5) do
begin
n:=n+1;
s:=s-n;
end;
writeln(s);
readln;
end.
NL
Nguyễn Lê Phước Thịnh
CTVHS
15 tháng 4 2022
uses crt;
var s,n:integer;
begin
clrscr;
s:=20;
n:=1;
while s>=5 do
begin
n:=n+1;
s:=s-n;
end;
writeln(s);
readln;
end.
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.