dùng while...do
Tính tổng S:=2+4+6+8....(số chẵn)
sau cho S > 2000
var i,s : integer ;
PV
Những câu hỏi liên quan
dùng while ... do tính tổng Các số tự nhiên chẵn S= 0+2+4+6...cho biết từ khi S>200 thì dừng . thông báo ra màng hình
Program HOC24;
var s: longint;
i: integer;
begin
s:=0; i:=0;
while s<=200 do
begin
s:=s+i;
i:=i+2;
end;
write('S= ',s);
readln
end.
Đúng 0
Bình luận (0)
Tìm lỗi sai của chương trình sau và sửa lại cho đúng:
Program câu 1;
Var n: Integer; s:real;
Begin
Writeln(‘ Nhap gia tri n=’); Readln;
S:=0;
While n >0 do
s:=s+n/2; n:=n-1;
write(‘tong s = ‘, s:8:2);
Readln;
End.
Mn giải giúp mik vs ạ. Mik cảm ơn ạ
Program câu 1;
Var n: Integer; s:real;
Begin
Writeln(‘ Nhap gia tri n=’); Readln(n);
S:=0;
While n<0 do
begin
s:=s+n/2; n:=n-1;
end;
write(‘tong s = ‘, s:8:2);
Readln;
End.
Đúng 0
Bình luận (0)
Lỗi sai:
Program câu 1; -> Tên chương trình không chứa dấu cách trắng.
-> Sửa: Program cau_1;
Writeln(‘ Nhap gia tri n=’); Readln; -> Nhập giá trị cho n nhưng thiếu lệnh đọc n
-> Sửa:
Writeln(‘ Nhap gia tri n=’); Readln(n);
While n >0 do
s:=s+n/2; n:=n-1;
Cả 2 câu lệnh s:=s+n/2; n:=n-1; đều nằm trong vòng lặp while..do nên cần begin...end con.
-> Sửa
While n >0 do
begin
s:=s+n/2; n:=n-1;
end;
Đúng 0
Bình luận (0)
ML
24 tháng 5 2022 lúc 11:21
cho S(n)=1/2+1/4+1/6+1/8...+1/n với n nguyên dương,chẵn
1. Viết hàm tính S(n).
2. Viết chương trình yêu cầu người dùng nhập số n nguyên, dương, chẵn và tính S(n).
Yêu cầu:
+ Viết code
Em hãy sắp xếp chương trình tính tổng N số tự nhiên sau cho phù hợp?
Var N, i: integer;
Write(‘Nhap so N=’); s:=0;
S: Longint; readln(n);
For i:=1 to n do
Begin
Program tinh_tong;
S:=s+i;
Writeln(‘Tong cua ‘, N, ‘ So tu nhien dau tien s=’, s);
End.
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.
Đúng 0
Bình luận (0)
Em hãy sắp xếp chương trình tính tổng N số tự nhiên sau cho phù hợp?
Var N, i: integer;
Write(‘Nhap so N=’); s:=0;
S: Longint; readln(n);
For i:=1 to n do
Begin
Program tinh_tong;
S:=s+i;
Writeln(‘Tong cua ‘, N, ‘ So tu nhien dau tien s=’, s);
End.
Readln
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.
Đúng 0
Bình luận (0)
cho :
s:=0; i:=2;
while i <= 9 do
begin
if i mod 2 = 0 then s:= s+1; i:= i+1;
end;
tính;
- số vòng lặp :
- s = ?
- i =?
làm tổng quát cho mình để mình dựa vạo mình làm mấy bài sau
Sau khi thực hiện xong đoạn chương trình. Kết quả cuối cùng i>@ và S>@ S:>4;i:>1 while S=6 do begin i:>i+2;S:>S*i+1;end;
Bạn gõ lại cho rõ đề nhé, nếu điều kiện của vòng lặp while do là s=6 thì nó không thực hiện vì ban đầu đề là s=4
Đúng 1
Bình luận (0)
Hãy tìm lỗi đoạn chương trình sau và sửa lại cho đúng vào cột bên cạnh: Program Tong__nghich__dao; Var n, i: real S: Integer; Begin Write (‘Nhap n= ’); readln(n); S:=0; For i:=1 to n do S=S+1/i; Write(‘Tong can tim la: ’, ‘S:6:2’); Readln End.
Program Tong__nghich__dao;
Var
n,i:real;
S:Integer;
Begin
Write('Nhap n=');Readln(n);
S:=0;
For i:=1 to n do S:=S+1/i;
Write('Tong can tim la: ', S:6:2);
Readln;
End.
Đúng 0
Bình luận (1)
Câu1: Mỗi câu lệnh lặp dưới đây thực hiện bao nhiêu lần lặp? Giá trị của S sau mỗi đoạn lệnh:
a)S:21; while S 21 do S:S*2;
b)S:15; For j:1 to 4 do S:S-3;
c)S:12; while S2 do S:S/2;
Câu 2: Số phần tử tối đa của biến mảng trong mỗi khai báo sau:
a) Var A: array[4..23] of real;
b) Var B: array[-5..39] of integer;
Mọi người giúp em với ạ! Em đang cần gấp! Em xin cảm ơn trước.🙂🙂🙂
Đọc tiếp
Câu1: Mỗi câu lệnh lặp dưới đây thực hiện bao nhiêu lần lặp? Giá trị của S sau mỗi đoạn lệnh:
a)S:=21; while S<= 21 do S:=S*2;
b)S:=15; For j:=1 to 4 do S:=S-3;
c)S:=12; while S>2 do S:=S/2;
Câu 2: Số phần tử tối đa của biến mảng trong mỗi khai báo sau:
a) Var A: array[4..23] of real;
b) Var B: array[-5..39] of integer;
Mọi người giúp em với ạ! Em đang cần gấp! Em xin cảm ơn trước.🙂🙂🙂
