s end
Những câu hỏi liên quan
S:=20
While s>0 do
Begin
S:=s div 10;
N:=n+s;
End;
Xem chi tiết
Hãy sắp xếp lại đoạn chương trình sau cho đúng:
var S, n : integer;
S:=0; n:=1;
while S<=100 do n:=n+1;
S:=S+n;
end;
writeln('So n nho nhat de tong > 100 la ',n);
readln
end.
Begin
begin
writeln('Tong dau tien > 100 la ',S);
Xem chi tiết
var s,n:integer;
begin
s:=0;
n:=1;
while s<=100 do
begin
s:=s+n;
n:=n+1;
end;
writeln('So n nho nhat de tong>100 la: ',n);
writeln('Tong dau tien >100 la: ',s);
readln;
end.
Đúng 0
Bình luận (0)
1.xác định giá trị của S sau công thức:
Var S,i:integer;
begin
s:=1;
For i=1 to S do
S:=S*i;
Write (S);
Readln;
End.
Vì ta sử dụng 1 vòng lặp for...to...do cho biến i chạy từ 1 đến giá trị của biến s, mà bây giờ biến s có giá trị = 1 .
=> cho biến i chạy từ 1 đến 1 .
=> Tạo ra 0 vòng lặp => biến s giữ nguyên giá trị
Đúng 0
Bình luận (0)
uses crt;
var i,n,s:integer;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do s:=s+i;
writeln(s);
readln;
end.
Chương trình Pascal sau đây thực hiện hoạt động nào?
var i,s: integer;
begin
s:=0;
for i:=1 to 1000 do
s:=s+i;
end.
- Cho biết chương trình sau đây làm công việc gì ?
Uses crt;
Var
S,i: integer;
Begin
S:=0;
for i:= 1 to 10 do
begin
S:= S + i*i;
writeln('Buoc thu ', i, ' tong S=', S);
end;
readln;
End.
Tìm giá trị của s, i trong đoạn chương trình sau:
S:=0; i:=0
while i<=3 do
Begin
i:=i+2;
s:=s+i;
end;
Cho đoạn chương trình sau: s := 0; i := 1 while s <= 10 do begin i := i + 1; s := s + i; end;
xác định điều kiện và câu lệnh
Điều kiện là s<=10
Câu lệnh là i:=i+1; s:=s+i;
Đúng 0
Bình luận (0)
hãy đọc đoạn chương trình sau:
s:=1;i:=1
while s<100 do
begin s:=s*i; i:=i+2; end;
sau khi thực hiện xong, kết quả s bằng:.......
