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
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.
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.
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.