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.
*Chương trình
Program nnn;
Uses crt;
Var S, N:real;
Begin
Write ('Nhap N');
Readln (N);
S:=20;
N:=1
If (S>=6) then N:=N+1 and S:=-S-N else write ('Ket qua S',S);
Readln;
End.
uses crt;
var s,n:integer;
begin
clrscr;
s:=20;
n:=1;
while s>6 do
begin
n:=n+1;
s:=s-n;
end;
writeln(s);
readln;
end.
a: Thực hiện 5 vòng lặp
T=35
j=11
b: Câu lệnh chưa biết trước là while-do, và chương trình của bạn chỉ cần sửa lại chỗ j:=1 thành b:=1 mà thôi
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.
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.
