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.
t=40,i=25. Giải chi tiết là sao. Cô mình dạy cho mình cách giải là ghi đáp án thui mà.Thông cảm nhen.
uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n: '); readln(n);
s:=0;i:=0;
i:=i+1;
while i>=n do
begin
s:=s+i;
i:=i+1;
end;
{ write(.........); }
readln
end.
P/S: Vì đề bài chưa cho biết in ra gì nên mình bỏ trống phần write nha bạn
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.
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,i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0; i:=0;
while i<=n do
begin
i:=i+1;
s:=s+i;
end;
writeln(s);
readln;
end.