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.
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.
mình chỉ giúp đựoc bạn câu 4 với câu 5 thôi, thông cảm cho mình nhé
cau 4
var i,n,S:longint;
begin
writeln('n=');
readln(n);
S:=0;
for i:=1 to n do
S:=S+n;
writeln('S=',S);
readln
end.
câu 5
var i,n,S:longint;
begin
writeln('n=');
readln(n);
S:=1;
for i:=1 to n do
S:=S*n;
writeln('S=',S);
readln
end.
mình dùng longint vì bạn nói là nhập số tự nhiên, longint chắc bạn cũng học rồi nhỉ ? :)
chúc may mắn
giá trị của S = 65
giá trị của n = 17
số lần lặp = 6
Chương trình:
program an_danh1;
uses crt;
var s,n:integer;
begin
clrscr;
s:= 5; n:=5;
while s <= 50 do
begin
s:= s + n;
n:= n + 2;
end;
write('S = ',s);
readln
end.