cho 1 thuật toán.Hãy cho biết khi thưcj hiện thuật toán đó máy tính sẽ thực hiện bao nhiêu vòg lặp và cho biết giá trị của các biến là bao nhiêu
Bài 8. Lặp với số lần chưa biết trước
viết chương trình tính tích n số tự nhiên ( với n được nhập từ bàn phím )
uses crt;
var i,n,x,s:integer;
begin
clrscr;
readln(n);
s:=1;
for i:=1 to n do
begin
readln(x);
s:=s*x;
end;
writeln(s);
readln;
end.
Đúng 1
Bình luận (0)
uses crt;
var n,i:integer;
s:longint;
begin
clrscr;
writeln('nhap n:');readln(n);
for i:=1 to n do s:=s*i;
write('tich cua ',n,'so tu nhien dau tien la:',s);
readln;
end.
Đúng 0
Bình luận (0)
uses crt;
var n,i:integer;
s:longint;
begin
clrscr;
writeln('nhap n:');readln(n);
s:=1;
for i:=1 to n do s:=s*i;
write('tich cua ',n,'so tu nhien dau tien la:',s);
readln;
end.
Đúng 0
Bình luận (0)
Viết phương trình nhập số nguyên N từ bàn phím. Kiểm tra từ 1 đến N có bao nhiêu số nguyên chia hết cho 5.
program dem_so_chia_het_cho_5;
uses crt;
var
N, count, i: integer;
begin
clrscr;
write('Nhap so nguyen N: ');
readln(N);
count := 0;
for i := 1 to N do
begin
if (i mod 5 = 0) then
begin
count := count + 1;
end;
end;
writeln('Co ', count, ' so nguyen chia het cho 5 tu 1 den ', N);
readln;
end.
Đúng 1
Bình luận (0)
Hãy tìm hiểu thuật toán sau đây và cho biết khi thực hiện máy tính sẽ thực hiện bao nhiêu vòng lặp? Khi kết thúc S bằng bao nhiêu? Viết chương trình pascal thể hiện thuật toán đó B1: S
Đề đầy đủ không bạn chứ mình k thấy chương trình ở câu hỏi
Đúng 0
Bình luận (0)
Viết chương trình tính tổng từ m đến n theo while... do
tổng từ m đến n theo while...do tổng từ m đến n theo while...d
Var m,n,i,s:integer;
Begin
Write('m = ');readln(m);
Write('n = ');readln(n);
For i:=m to n do s:=s+i;
Write('tong tu ',m,' den ',n,' la ',s);
Readln;
End.
Đúng 1
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:.......
Viết chương trình tính tổng n số, với n được nhập từ bàn phím ( sử dụng while..do)?
program a1;
uses crt;
var s,i,n:integer;
begin
clrscr;
write('nhap n:'); readln(n);
s:=0; i:=1;
while i<=n do
begin
s:=s+1;
i:=i+1;
end;
write('tong cua day n:',s);
readln;
end.
Đúng 1
Bình luận (0)
tính tổng dãy số 1,2...N cho đến khi tổng lớn hơn 600
uses crt;
var n,i,t:integer;
begin
clrscr;
n:=0;
i:=0; t:=0;
repeat
i:=i+1;
t:=t+i;
until t>600;
write(i);
write(t);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình pascal sử dụng lệnh while...do hoặc for to do để tính tổng S=1+1/2+1/3+...+1/n. N là số nguyên nhập từ bàn phím
program tinhtong;
var n,i : integer;
S : real;
begin
write('Nhap n: ');
readln(n);
i:=1;
S:=0;
while i<=n do
begin
S:=S+1/i;
i:=i+1;
end;
writeln('Tong S= ',S);
readln;
end.
Đúng 1
Bình luận (0)
program tinh_tong_S;
var
n, i: integer;
S: real;
begin
write('Nhap n: ');
readln(n);
S := 0;
i := 1;
while i <= n do
begin
S := S + 1 / i;
i := i + 1;
end;
writeln('Tong S la: ', S:0:2);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình pascal sử dụng lệnh while...do hoặc for to do để tính tổng S=1+3+5+...+n. N là số nguyên nhập từ bàn phím
Program HOC24;
var i,n: integer;
S: longint;
begin
write('Nhap N: '); readln(n);
i:=1; s:=0;
while i<=n do
begin
s:=s+i;
i:=i+2;
end;
write('S=',S);
readln
end.
Đúng 1
Bình luận (0)
program tinh_tong_S;
var
n, i, S: integer;
begin
write('Nhap n: ');
readln(n);
S := 0;
i := 1;
while i <= n do
begin
S := S + i;
i := i + 2;
end;
writeln('Tong S la: ', S);
readln;
end.
Đúng 0
Bình luận (0)